- Katılım
- 31 Ağustos 2008
- Mesajlar
- 5
- Excel Vers. ve Dili
- excel2003
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 ....
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 ....