bu kodda nerede hata var
Kod:
Private Sub Komut2_Click()
If Len(Dir("C:\ahmet\burak\ceyhan", vbDirectory)) = 0 Then
MkDir "C:\ahmet\burak\ceyhan"
End If
End Sub
doğrusu buymuş adım adım klasör eklenecekmiş
Kod:
MkDir "C:\ahmet"
MkDir "C:\ahmet\burak"
MkDir "C:\ahmet\burak\ceyhan"