none
在文件夹下创建文件问题 RRS feed

  • 问题

  • 我想点击按钮创建一个文件夹,然后在这个文件夹下继续创建一个同名的TXT文件,结果创建txt时说路径不存在,怎么解决?是不是因为这个文件夹刚创建好,程序运行期间找不到呢?

    2009年6月17日 1:58

答案

全部回复

  • 2009年6月17日 2:04
    版主
  •     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim createdir As New mydirectory
            Dim name As String = TextBox1.Text
            Dim createfile As New myfile
            Dim write As New IO.FileStream(path & "\treenodes.txt", FileMode.Append, FileAccess.Write)
            Dim contents As String = name & vbCrLf
            Dim array() As Byte = System.Text.Encoding.Default.GetBytes(contents.ToCharArray)
            If TextBox1.Text = "" Then
                MsgBox("请输入目录")
            Else
                createdir.create(path & "\" & name)
                createfile.create(path & " \ " & name & " \ " & name & ".txt")
                write.Write(array, 0, array.Length)
                write.Close()
                TreeView1.Nodes(0).Nodes.Add(name)

            End If
        End Sub

    下划线部分没执行,咋回事

    2009年6月17日 2:08
  • mydirectory,myfiles是你自己的类

    createdir.create(path & "\" & name)
    创建成功了吗?
    http://feiyun0112.cnblogs.com/
    2009年6月17日 2:21
    版主
  • 对,那两个是我自己定义的,createdir已经创建成功,有文件夹了,但是txt创建不成功,我定义的这个myfile类没有问题,在其他目录可以创建txt文件

    2009年6月17日 3:27
  • 有人能给我解释解释为啥不行否?
    2009年6月18日 0:29
  • createfile.create(path & " \ " & name & " \ " & name & ".txt")

    多了空格

    createfile.create(path & "\" & name & "\" & name & ".txt")

    http://feiyun0112.cnblogs.com/
    • 已标记为答案 YiChun Chen 2009年6月18日 10:23
    2009年6月18日 0:49
    版主
  • 相当尴尬了,版主我对不起你,让你费心了~~~

    2009年6月18日 3:22