海南新华旅行社:判断c:\test 数据夹是否存在,如果不存在.请新增该资料夹 怎么做?谢谢!

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 08:03:43
在VB中

Sub ShowFolderInfo()
Dim fso, fldr, s
' 获得 FileSystemObject 的实例。
Set fso = CreateObject("Scripting.FileSystemObject")
' 获得 Drive 对象。
Set fldr = fso.GetFolder("c:\test")
If fldr.FolderExists = True Then
Response.Write "This folder is exists." & ""<br>"
Else
Response.Write "This folder isn't exists." & "<br>"
' 用 FileSystemObject 对象创建新的文件夹。
fso.CreateFolder ("C:\test")
Response.Write "Created folder C:\test" & "<br>"
End If
End Sub