以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何在指定目录下增加指定文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50558)
--  作者：chnfo
--  发布时间：2014/5/8 23:48:00
--  [求助]如何在指定目录下增加指定文件
我做了一个窗口，希望检测软件安装目录下是否有某个文件，如果没有，则添加这个文件

If FileSys.FileExists(ProjectPath & "指定文件.txt") Then
    Messagebox.Show("文件已经存在!","提示")
    FileSys.WriteAllText(ProjectPath & "指定文件.txt", “PW” , False)
Else
    ‘如何在’ProjectPath目录下自动增加“指定文件.txt"这个文件呢？然后再写内容进入到这个文件里
    FileSys.WriteAllText(ProjectPath & "指定文件.txt", “PW” , False)
End If
--  作者：Bin
--  发布时间：2014/5/9 8:35:00
--  
FileSys.WriteAllText(ProjectPath & "指定文件.txt", “PW” , False)

这句代码就没有问题. 

你的问题是什么
--  作者：lsy
--  发布时间：2014/5/9 9:14:00
--  
If FileSys.FileExists(ProjectPath & "Hello.txt") Then
    Messagebox.Show("文件已经存在!","提示")
Else
    Shell("cmd /C Echo.>" & ProjectPath & "Hello.txt")
End If
FileSys.WriteAllText(ProjectPath & "Hello.txt", "PW" , False)
--  作者：chnfo
--  发布时间：2014/5/9 9:47:00
--  
非常好。只是有个小问题，按钮点一次，只会在目录下新建文件，但不会往文件里写信息，为何？点了第二下才会写信息
--  作者：Bin
--  发布时间：2014/5/9 9:51:00
--  
这代码不应该有问题.

If FileSys.FileExists(ProjectPath & "Hello.txt") Then
    Messagebox.Show("文件已经存在!","提示")
Else
    FileSys.WriteAllText(ProjectPath & "Hello.txt", "PW" , False)
End If
--  作者：chnfo
--  发布时间：2014/5/9 9:56:00
--  
这一段有问题啊，如果目标文件不存在，要先建一个目标文件，再往目标文件里写信息才对。 三楼代码正解，但三楼代码最后一行未执行
--  作者：Bin
--  发布时间：2014/5/9 9:58:00
--  
这个代码本来就回新建目标文件
--  作者：chnfo
--  发布时间：2014/5/9 10:05:00
--  
测试果然如此啊，一箭双雕，太厉害了