Thursday, January 14, 2010

Write a program to compare 2 folder

Dim fso, fsofol, filespec, fsoNfol, fsoDfol
filespec = "C:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsofol = fso.GetFolder(filespec)
If (fsofol.IsRootFolder = False) Then
MsgBox "Folder Exists"
End If

No comments: