masaüstüne klasör açma

[spacebar]

değerli üstadlarım. aşağıdaki kodlar D sürücüsünde klasör açıyor. bu klasörü masaüstüne açması için kodda nasıl revize yapmam gerekiyor. teşekkürler...

Sub Klasor_Olustur()
Dim ds
    yer = "D:\": kls = "Spacebar"
   
    Set ds = CreateObject("Scripting.FileSystemObject")
    If ds.FolderExists(yer & kls) Then
'        MsgBox "Klasör mevcut"
    Else
        ds.CreateFolder yer & kls
'        MsgBox "Klasör oluşturuldu."
    End If
End Sub

 

[Tevfik_Kursun]

Merhaba,
yer = "D:\" yerine yer = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" ibaresini yazarak dener misiniz?
İyi çalışmalar

 

[Korhan Ayhan]

Bu da Environ kullanımına örnek olsun.

Option Explicit

Sub Masaustunde_Klasor_Olustur()
    Dim Klasor As String, Ayrac As String
    
    Ayrac = Application.PathSeparator
    Klasor = Environ("UserProfile") & Ayrac & "Desktop" & Ayrac & "Spacebar"
    
    If Dir(Klasor, vbDirectory) <> "" Then
        MsgBox "Klasör mevcut !", vbExclamation
    Else
        MkDir (Klasor)
        MsgBox "Klasör oluşturulmuştur.", vbInformation
    End If
End Sub

 

[Mdemir63]

Selamlar

yer = ThisWorkbook.Path & "\": kls = "Spacebar"

değiştirin

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
2. mesajdaki yer ifadesi ile yer = Environ("UserProfile") & Ayrac & "Desktop" & Ayrac ifadesi aynı yeri göstermiyor. Environ neyin karşılığıdır?
Saygılarımla

 

[spacebar]

Korhan bey üstadım MkDir (Klasor) satırında debug hatası verdi.
Mdemir63 üstad sorunsuz çalışıyor.
tevfik üstad klasör oluşturalamadı.
hepinize teşekkür ederim. sağlıkla kalın. iyi akşamlar dilerim.

 

[Tevfik_Kursun]

Ben denedim, sorunsuz.
İşiniz görüldü ise mesele yok
iyi çalışmalar

 

[Mdemir63]

Selamlar
Sayın @spacebar Korhan hocamın verdiği kodlar sorunsuz çalışıyor.
İyi çalışmalar

 

[spacebar]

Ben denedim, sorunsuz.
İşiniz görüldü ise mesele yok
iyi çalışmalar

üstad özür dilerim. tekrar denedim. sorunsuz çalışıyor. 3 cevap gelince aceleyle hata yapmışım. teşekkür ederim.

 

[Tevfik_Kursun]

Rica ederim arkadaşım
Kolay gelsin

 

[Mdemir63]

Sayın @Tevfik_Kursun
sizin kodlar da çalışıyor yazmayı unutmuşum.
kusura bakmayın

 

[Tevfik_Kursun]

Rica ederim arkadaşım, denedim çünkü
Kolay gelsin.