MAKRO İLE KLASÖR OLUŞTURMA

[falanca09]

Merhabalar,

Ben makro ile klasör oluşturmak istiyorum. Aşağıdaki gibi bir kod buldum bu koda ilave olarak eğer bu klasör daha önce oluşturulmuş ise bir şey yapmasın istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

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

 

[hamitcan]

Aşağıdaki kodu kullanın.
https://www.exceltrick.com/formulas_macros/vba-dir-function/

Sub RetriveFolder()
MyFolder = "C:\b"
Fldr = Dir(MyFolder, vbDirectory)
If Len(Fldr) > 0 Then
  MsgBox (Fldr & " Already Exists")
Else
  MkDir MyFolder
  MsgBox ("Folder Created")
End If
End Sub

 

[falanca09]

Aşağıdaki kodu kullanın.
https://www.exceltrick.com/formulas_macros/vba-dir-function/

Sub RetriveFolder()
MyFolder = "C:\b"
Fldr = Dir(MyFolder, vbDirectory)
If Len(Fldr) > 0 Then
  MsgBox (Fldr & " Already Exists")
Else
  MkDir MyFolder
  MsgBox ("Folder Created")
End If
End Sub

Çok teşekkür ederim. İşime yaradı.