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
小小~咖啡豆 閱讀(678)
評論(0) 編輯 收藏 所屬分類:
Lotus