Patricklckhk
04-28-2007, 08:40 AM
I would like to make a test whether the folder in a web is exist . If No, it will create the folder automatically >I can do it in the local drive (eg.C:\ etc) but when applied in web/sharepoint, seems the web can't recognized it.Can anyone help for it.Thks a lot....
Below is the code that I use when applied in the C:\
Sub testfolder()
Dim Test As New FileSystemObject
Dim test2 As Folders
test1 = "Mar-07"
If Test.FolderExists("C:\2007\" & test1) = True Then
Range("A1") = "File Exist"
Else: MkDir ("C:\2007\" & test1 & "\")
End If
End Sub
Below is the code that I use when applied in the C:\
Sub testfolder()
Dim Test As New FileSystemObject
Dim test2 As Folders
test1 = "Mar-07"
If Test.FolderExists("C:\2007\" & test1) = True Then
Range("A1") = "File Exist"
Else: MkDir ("C:\2007\" & test1 & "\")
End If
End Sub