Question

vb fso问题

Dim fso As FileSystemObject
With fso
If fso.FileExists(App.Path & "\user.txt") = False Then
fso.CreateTextFile App.Path & "\user.txt"
上面有错,怎么错法,请高手告诉我~~谢谢~!~~

Answer 1

只定义了fso对象变量，没有创建对象的新实例，肯定有错。

要么把
Dim fso As FileSystemObject
改成
Dim fso As New FileSystemObject

要么
在定义后面加一句
Set fso=New FileSystemObject

Answer 2

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
With fso
If fso.FileExists(App.Path & "\user.txt") = False Then
fso.CreateTextFile App.Path & "\user.txt"
End If
End With

Answer 3

Dim fso As FileSystemObject
Set fso = new FileSystemObject
With fso
If fso.FileExists(App.Path & "\user.txt") = False Then
fso.CreateTextFile App.Path & "\user.txt"
End If
End With

Answer 4

定义好像是Dim fso as new ...(对象)