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 strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Rename Files (slightly odd one though)
Dim fso Set fso = CreateObject("Scripting.Filesystemobject") For Each file In fso.GetFolder("c:\temp\myfolder").Files newpath = file.Path newpath = Left(newpath,Len(newpath)-4) 'remove last 4 characters newpath = Left(newpath,Len(newpath)-3) & "." & Right(newpath,3) 'insert a dot... -
Display Modified Date
Dim fso Set fso = CreateObject("Scripting.Filesystemobject") mydate = Now - 7 Set output = fso.CreateTextFile("c:\temp\output.txt",True) Browse fso.GetFolder("\\myserver\myshare") output.Close Sub Browse(folder) For Each file In folder.Files If file.DateLastModified>mydate Then... -
FTP File Pickup
You can use VBScript to dynamically write a ftp script: Dim fso Set fso = WScript.CreateObject("Scripting.Filesystemobject") Set ftp = fso.CreateTextFile("c:\temp\ftpscript.txt",True) ftp.WriteLine "open ftp.myftpserver.com 21" ftp.WriteLine "myusername" ftp.WriteLine "mypassword"...
