为什么在编译时出错，变量未定义。晕我在模块中的函数。
Public Function AddTXT(DirPath As String) As Long
Dim folder As String
Set fso = CreateObject("Scripting.FileSystemObject") '变量未定义
If (fso.FolderExists(Form1.List1.List(n))) Then
folder = Dir(allxls)
End Function
谁能否帮写个规范的，本人是新手。谢谢！
VB6中模块定义函数问题（FileSystemObject）
答案:1 悬赏:0 手机版
解决时间 2021-01-25 02:43
- 提问者网友：杀手的诗
- 2021-01-24 10:31
最佳答案
- 五星知识达人网友：毛毛
- 2021-01-24 10:42
Public Function AddTXT(DirPath As String) As Long
Dim folder As String ,fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(Form1.List1.List(n))) Then
folder = Dir(allxls)
end if
End Function
Dim folder As String ,fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(Form1.List1.List(n))) Then
folder = Dir(allxls)
end if
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯