button ile klasör oluşturma

[ahmet_salih]

Private Sub CommandButton2_Click()

Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "D:yedek"
MsgBox " klasörünüz oluşturuldu"

End Sub


slm arkadaşlar bu koda nasıl ekleme yapabiliriz ...eger istenen isimde zaten bir klasör varsa msgbox ile uyarsın bu şekilde kod hata vermiş olmasın ....

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton2_Click()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
If ds.FolderExists("d:yedek") = False Then
ds.CreateFolder "D:yedek"
MsgBox " klasörünüz oluşturuldu"
Else
MsgBox "klasör mevcuttur"
End If
End Sub

 

[MersiLee]

Teşekkürler...

Bana da böyle bir kod lazımdı.

İyi Çalışmalar...

 

[ahmet_salih]

levent bey tşkler kolay gelsin iyi ramazanlar...

 

[cokcu]

Peki ayrı isimlerde klasör oluşturmak mümkün müdür?
Mesela Yedek isimli kalsörü oluşturduktan sonra otomatik olarak Yedek 1, Yedek 2 şeklinde diğer klasör isimlerini sıraya alsın. Bu şekilde olduğu takdirde kodlar daha kullanışlı olur gibime geliyor.

 

[hamitcan]

Private Sub CommandButton2_Click()
    Dim ds
    Set ds = CreateObject("Scripting.FileSystemObject")
    If ds.FolderExists("C:\yedek") = False Then
    ds.CreateFolder "C:\yedek"
    MsgBox " klasörünüz oluşturuldu"
    Else
git:
    s = s + 1
    If ds.FolderExists("C:\yedek" & s) = False Then
    ds.CreateFolder "C:\yedek" & s
    MsgBox " klasörünüz oluşturuldu"
    Else: GoTo git
    End If
    End If
End Sub