Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub CheckFolder()
Dim FileObject As FileSystemObject
Dim Folder As Folder
Dim FolderName As String
Set FileObject = CreateObject("Scripting.FileSystemObject")
FolderName = InputBox("Enter Folder Path")
If FileObject.FolderExists(FolderName) = True Then
MsgBox "Folder Exists"
Else
MsgBox "Folder Doesn't Exists"
FileObject.CreateFolder (FolderName)
End If
End Sub