Vbs ile desktopta bir dosyaya veri kopyalama nasil yapilir

[Jezus]

Merhabalar,

Benim ogrenmek istedigim Vbs ile desktopta bir dosyaya veri kopyalama nasil yapilir araya kendi ismimizi yazmadan yani herkesin kullanabilecegini dusunerek, bunun bir benzerini Excel Vba icin Levent hocamdan ogrenmistim asagidaki ornek gibi

ActiveWorkbook.SaveAs "C:\Documents and Settings\" & Environ("username") & "\Desktop\test\

Username yerine ne yazmam gerekiyor bunu ogrenebilirmiyim ..?

 

[modalı]

Sanırım hiçbirşey yazmanıza gerek yok.

Environ("username") ile o sırada kullanıcı adı direkt olarak alınıyor.

İyi çalışmalar

 

[Jezus]

Environ

Sayin Modali ,
ilgilendiginiz icin tesekkur ederim, fakat VBS environ,u hata olarak goruyor

 

[Zeki Gürsoy]

Merhaba,

Anlaşılan VBScript Environ fonksiyonunu kabul etmiyor.

Burayı inceleyin (WScript)

"SpecialFolders" özelliğini kullanın.

 

[modalı]

Sayın Jezus,

kullanıcı adı için:

Dim objNetwork
Set objNetwork =  CreateObject("WScript.Network")
strUserName =  objNetwork.UserName
MsgBox strUserName

İyi çalışmalar

 

[Jezus]

Sayin Zeki Gürsoy, ve Sayin Modali, Cevaplariniz icin tesekkur ederim,

Fakat benim istedigim Kullanici ismi yazmadan Desktop uzerinde bir klasor,e C:\ deki veriyi nasil kopyalarim, yani Copy C:\Documents and Settings\" & Environ("username") & "\Desktop\test\ gibi, bunu henuz yapamadim.

 

[modalı]

Sayın Jezus,

Anladığınız gibi Environ çalışmıyor. Kullanıcı adını:

Dim objNetwork
Set objNetwork =  CreateObject("WScript.Network")
strUserName =  objNetwork.UserName

kodlarıyla kullanıcı adını alıyorsunuz. strUserName kullanıcı adı oluyor. Sonra istediğiniz şekilde kullanabiliyorsunuz.

C:\Documents and Settings\" & Environ("username") & "\Desktop\test\ yi

C:\Documents and Settings\" & strUserName & "\Desktop\test\

gibi kullanmayı deneyin.