Sürücü ve yol belirterek klasör(ler) oluşturmak

[k0081]

Merhaba arkadaşlar;

Textbox a C:\deneme\Araç1\ yazarak ve enter tuşunu kullanarak klasörleri nasıl oluşturabilirim..?

**************************
istenen (örnek) ;
C:\ sürücüsü içerisinde deneme klasörü onun içinde de Araç1 klasörü oluşturmak isityorum..

Not: Sürücü ve klasör isimleri değişkendir...


yardımcı arkadaşa şimdiden teşekkürler..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim Data, X, Klasor
    
    If KeyCode <> 13 Then Exit Sub
    
    Data = Split(TextBox1.Text, "\")
    
    For X = 0 To UBound(Data)
        If Klasor = "" Then
            Klasor = Data(X) & "\"
        Else
            Klasor = Klasor & Data(X) & "\"
        End If
        
        If Dir(Klasor, vbDirectory) = "" Then
            MkDir Klasor
        End If
    Next
End Sub

 

[k0081]

hocam cevap için teşekkürler,, ama kodu çalıştıramadım. Textboxa yolu yazıp enter a bastığımda herhangi bir durum oluşmuyor.

 

[Korhan Ayhan]

Kodu güncelledim. Tekrar deneyiniz.

 

[k0081]

Korhan Ayhan

Hocam çok Teşekkür ediyorum, Tamamdır..