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?
(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?
Misal: C:\Users\VESTEL\Desktop\xxx.jpg Buradaki xxx.jpg dosyasının var olup olmadığının tespitini nasıl yaparız?
Dir diye bir komut var onunla yada filesystemobject ile yapabilirsiniz.En basiti Dir kullanmak.
Sayın feraz dır yazıp dosya konumunumu yazmalıyız?
(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 If
(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-exceld...#pid177988
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