+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Klasör Yoksa Oluştur (/konu-klasor-yoksa-olustur.html)
Sayfalar:
1
2
Klasör Yoksa Oluştur - ates2014 - 21/08/2020
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
RE: Klasör Yoksa Oluştur - berduş - 21/08/2020
KlasorAdresi yerine YEDEKLER tam adresi yazılacak diyelim ki YEDEKLER klasörü "c:\deneme\YEDEKLER" ise
KlasorAdresi="c:\deneme\YEDEKLER" gibi
RE: Klasör Yoksa Oluştur - berduş - 21/08/2020
If Dir(CurrentProject.Path & "\YEDEKLER", vbDirectory) <> "" Then MsgBox "zaten var" Else MkDir CurrentProject.Path & "\YEDEKLER"RE: Klasör Yoksa Oluştur - ates2014 - 21/08/2020
Çok teşekkür ederim sayın Berduş ellerinize sağlık...
RE: Klasör Yoksa Oluştur - berduş - 21/08/2020
iyi çalışmalar)
RE: Klasör Yoksa Oluştur - feraz - 22/08/2020
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