klasör var ise işlem yapmasın

[kneehot]

Arkadaşlar merhaba;

Aşağıdaki kodu biyerden buldum ve çalışıyor ancak bu kodu koyacağım dosyada aşağıdaki makrodan sonrada çalışacak makrolar olacak. O yüzden aşağıdaki makro her çalıştığında bu klasörü açmayı denesin fakat klasör var ise hata mesajı vermeden diğer makrolar çalışmaya devam etsin istiyorum. Umarım anlatabilmişimdir. Yardımlara şimdiden teşekkürler.


Sub Klasör_Oluştur()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\DENEME"
End Sub

 

[Necdet]

Merhaba,

Kodları inceleyiniz, size fikir verecektir.

Sub Klasör_Oluştur()
    
    Dim ds
    On Error Resume Next
    Set ds = CreateObject("Scripting.FileSystemObject")
    
    ds.CreateFolder "C:\DENEME"
    If Not Err.Number = 0 Then MsgBox "Dizin var, Açmadım"
    
End Sub

 

[kneehot]

cok tesekkur ederim.

 

[halit3]

Alternatif kod

Sub Klasör_Oluştur()
Dim fl, yer
Set fl = CreateObject("Scripting.FileSystemObject")
yer = "C:\DENEME"
If fl.FolderExists(yer) = True Then
MsgBox "klasör var"
Else
MsgBox "klasör yok klasör oluşturulacaktır."
fl.CreateFolder yer
End If
End Sub