Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Search results for query: *
- Users: BondDotCom
- Order by date
-
backup all doc files
Sorry, I was testing with JPG's. Replace the line: If UCase(Right(f.Name, 3)) = "JPG" Then with If UCase(Right(f.Name, 3)) = "DOC" Then- BondDotCom
- Post #4
- Forum: VBScript
-
backup all doc files
This should work: Option Explicit ' Global Constants... Const sSearchDrive = "C:\" Const sCopyTo = "F:\" ' Global Variables... Dim fso Call Main() Call WScript.Quit() Sub Main Set fso = CreateObject("Scripting.FileSystemObject") Dim fld Set fld = fso.GetFolder(sSearchDrive) Call...- BondDotCom
- Post #3
- Forum: VBScript
