Question

vb怎么在自身目录下创建TXT文件

如果有1.txt则不创建
没有则在自身目录下创建1.txt

Answer 1

Dim Path As String
Path = IIf(Len(App.Path) > 3, App.Path & "\", App.Path) '自己的路径
If Dir(asx & "1.txt") = "" Then '检测是否不存在
Open asx & "1.txt" For Output As #1 '创建txt
Close #1
end if

Answer 2

如果是纯文本,方法:
if dir("1.txt") <> "" then
exit sub
else
if dir("1.txt") = "" then
Open "1.txt" For output As #1 \'以写入方式打开文本
write #1 ,, text1.text \'要写入的文本内容
close #1
end if
end if

如果是二进制或随记文本,方法:
Open 文件名 For Binary As #2
Get #2,, LoadBytes /'loadbytes为要写入的内容.
Close #2

Answer 3

open app.path & "\1.txt" for append as #1
如果有文件存在,则打开文件,在文件尾添加数据,不存在则创建一个文件

不能用output 打开文件,这样不管有没有存在,都是覆盖原文件的

Answer 4

第一步：按顺序点击： 工程——引用 ，勾选："microsoft scripting runtime"

第二步：在窗体上创建一个按钮，复制以下代码即可：

Option Explicit

Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.FileExists(IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "1.txt") = False Then
fso.CreateTextFile IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "1.txt"
End If
End Sub