Skip to main content

AccessTr.neT


Klasör Yoksa Oluştur

Klasör Yoksa Oluştur

Çözüldü #1
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
.rar DENEME.rar (Dosya Boyutu: 36,09 KB | İndirme Sayısı: 3)
Cevapla
#2
KlasorAdresi yerine YEDEKLER tam adresi yazılacak diyelim ki YEDEKLER klasörü "c:\deneme\YEDEKLER" ise
KlasorAdresi="c:\deneme\YEDEKLER" gibi
Cevapla
#3
If Dir(CurrentProject.Path & "\YEDEKLER", vbDirectory) <> "" Then MsgBox "zaten var" Else MkDir CurrentProject.Path & "\YEDEKLER"
Cevapla
#4
Çok teşekkür ederim sayın Berduş ellerinize sağlık...
Cevapla
#5
iyi çalışmalar)
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da