• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sanal sağ click

Katılım
15 Ocak 2007
Mesajlar
791
Excel Vers. ve Dili
2003 excel visual basic
arkadaşlar ekte örnek bir çalışmam var bir yerde takıldım yeni > klasör labeline tıklayınca masaüstüne yeni klasör oluşturması için ne yapabilirim...
 
Şu şekilde de olabilir.
Kod:
MkDir Environ$("userprofile") & "\Desktop\test"
 
Alternatif olarak bulunması amacıyla iki yol daha verelim.

Kod:
CreateObject("Scripting.FileSystemObject").CreateFolder (CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\test")
Kod:
MkDir CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\test"
 
tşk ederim

işe yaradı teşekkür ederim herkese peki kısayol için ne yapılabilir...
 
Geri
Üst