AccessTr.neT

Merhaba arkadaşlar,
sitede bir kod buldum kendi projeme uygulamak istedim,
maalesef uygulayamadım,
deneme klasörü içinde YEDEKLER klasörü varsa Klasör var desin,
yoksa 1 adet YEDEKLER klasörü oluştursun.
Bulduğum kod aşağıda
Klasör varsa uyarı verir yoksa olusturur
Visual Basic Code
If Dir(KlasorAdresi, vbDirectory)="" Then
MkDir KlasorAdresi
Else
Msgbox "zaten var"
End if
yada
Visual Basic Code
If Len(Dir(KlasorAdresi, vbDirectory)) = 0 Then
MkDir KlasorAdresi
Else
Msgbox "Zaten var"
End If

KlasorAdresi yerine YEDEKLER tam adresi yazılacak diyelim ki YEDEKLER klasörü "c:\deneme\YEDEKLER" ise
KlasorAdresi="c:\deneme\YEDEKLER" gibi

Çok teşekkür ederim sayın Berduş ellerinize sağlık...

iyi çalışmalar)

Merhaba.
Başka bir yoldan çözüm altta.

Dim fso As Object, yol As String

Set fso = CreateObject("scripting.filesystemobject")

yol = CurrentProject.Path & "\YEDEKLER"

If Not fso.FolderExists(yol) Then fso.createfolder (yol)

Set fso = Nothing: yol = vbNullString