iki koşula göre çalışan makro

[nziya]

Tüm forum yönetici ve üyelerine saygılar
bir konuda yardım rica edeceğim
EÐER C:\VE D:\ 'DE DENEME İSİMLİ KLASÃ?R VARSA YENİ BİR KALASÃ?R OLUÞTURULMASIN EÐER BUNLARIN BİRİNDE BU İSİMLİ BİR KLASÃ?R YOKSA YENİ BİR KLASÃ?R OLUÞTURULSUN.

 

[veyselemre]

[vb:1:9c04966543] Sub dene()
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\Deneme") = False Then fs.CreateFolder ("C:\Deneme")
If fs.FolderExists("D:\Deneme") = False Then fs.CreateFolder ("D:\Deneme")
Set fs = Nothing
End Sub
[/vb:1:9c04966543]

 

[nziya]

Sayın Veyselemre ilginize çok teşekkür ederim birde bu iki koşula bağlı klasörü oluştururken sadece c:\ de oluşturmak istiyorum lütfen

 

[veyselemre]

Yanlış anlamadıysam c ve d de yoksa c de oluşturur

[vb:1:de2095cf03] Sub dene()
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\Deneme") = False and fs.FolderExists("D:\Deneme") = False Then fs.CreateFolder ("C:\Deneme")
Set fs = Nothing
End Sub
[/vb:1:de2095cf03]

 

[nziya]

Çok teşekkür ederim ellerinize sağlık Veyselemre bey