+- 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örde Dosya Varmı? (/konu-klasorde-dosya-varmi.html)
Sayfalar:
1
2
Klasörde Dosya Varmı? - aliyorga - 25/02/2021
Access Veritabanının kullandığı kodlama sisteminde (visual basic) masa üstünde X dosyasının mevcut olup olmadığını nasıl sordururuz?
Misal: C:\Users\VESTEL\Desktop\xxx.jpg Buradaki xxx.jpg dosyasının var olup olmadığının tespitini nasıl yaparız?
RE: Klasörde Dosya Varmı? - feraz - 25/02/2021
(25/02/2021, 02:37)aliyorga yazdı: Access Veritabanının kullandığı kodlama sisteminde (visual basic) masa üstünde X dosyasının mevcut olup olmadığını nasıl sordururuz?Dir diye bir komut var onunla yada filesystemobject ile yapabilirsiniz.En basiti Dir kullanmak.
Misal: C:\Users\VESTEL\Desktop\xxx.jpg Buradaki xxx.jpg dosyasının var olup olmadığının tespitini nasıl yaparız?
RE: Klasörde Dosya Varmı? - aliyorga - 25/02/2021
Sayın feraz dır yazıp dosya konumunumu yazmalıyız?
RE: Klasörde Dosya Varmı? - atoykan - 25/02/2021
(25/02/2021, 08:02)aliyorga yazdı: Sayın feraz dır yazıp dosya konumunumu yazmalıyız?
Aşağıdaki kodu inceleyin lütfen.
Dim dosyayolu As String
Dim dosyavar As String
dosyayolu = "C:\Users\VESTEL\Desktop\xxx.jpg"
dosyavar = Dir(dosyayolu)
If dosyavar = "" then
MsgBox "Dosya yok"
Else
MsgBox "Dosya mevcut"
End IfRE: Klasörde Dosya Varmı? - feraz - 25/02/2021
(25/02/2021, 08:02)aliyorga yazdı: Sayın feraz dır yazıp dosya konumunumu yazmalıyız?Merhaba alttaki linkte örnek olarak kullanmıştım.4.mesajdaki if Dir ile başlayan kısım yeterli.Yosa else şartınuda koyabilirsiniz.
Youtubede bir sürü video var extra kod yazmadan yol göstermiştim araştırsısız diye
https://accesstr.net/konu-butonla-excelden-access-veri-tabanini-acmak.html?pid=177988#pid177988
RE: Klasörde Dosya Varmı? - feraz - 25/02/2021
Konuyu çöp kutusuna taşımışlar yinede diğer yöntemide eklemiş olayaım.
Kod:
If CreateObject("Scripting.FileSystemObject").FileExists("C:\Users\VESTEL\Desktop\xxx.jpg") Then
MsgBox "Var"
Else
MsgBox "Yok"
End If