tnt快递快吗:判断c:\test 数据夹是否存在,如果不存在.请新增该资料夹 怎么做?谢谢!

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/12 15:02:21
在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