1、使用Dir:
If Dir$(dirName, ATTR_DIRECTORY) = "" Then
'Directory does not exist
Else
'Directory does exist
End If
2、使用FileSystemObject：
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(dirName) Then
'Directory does exist
Else
'Directory does not exist
End If
posted on 2008-07-04 10:06
小小~咖啡豆 阅读(645)
评论(0) 编辑 收藏 所属分类:
Lotus