OCX dosyalarını istediğim klasöre kopyalama.

[Tarkan VURAL]

Klasörünüzde yüklenecek çok fazla ocx dosyası var ise yüklemelerin sonunda regsvr32 ' nin vereceği mesajlar can sıkabilir.
Buna da alternatif olarak şu yolu öneriyorum :

Kod içerisinde regsvr32 sonuna / s koyarsanız mesaj vermiyor. Ama yan tesiri var. Bu defa da ocx.lerin yüklenip yüklenmediğini anlayamayacaksınız. Hata verdiğinde bilginiz olmayacak.

İyi çalışmalar.

 

[Jezus]

Vbs ile Desktopta bir dosyaya veri kopya

Merhaba Haluk bey,

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 sizden..?

 

[modalı]

Sayın Jezus,

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

İyi çalışmalar