ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 204
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
Kod:
sorgu = "Select * from [URUN_DOSYALARI]
RS.Open sorgu, con, 1, 3
Do Until RS.EOF
If Dir(Path & "\" & RS("URUN_KODU").Value, vbDirectory) <> "" Then
With ListBox1
.AddItem
.LIST(i, 0) = RS("URUN_KODU").Value
.LIST(i, 1) = RS("URUN_ADI").Value
.LIST(i, 2) = RS("URUN_ACIKLAMA").Value
End With
i = i + 1
ElseIf Dir(Path & "\" & RS("URUN_KODU").Value, vbDirectory) = "" Then
With ListBox1
.AddItem
.LIST(i, 0) = RS("URUN_KODU").Value
.LIST(i, 1) = RS("URUN_ADI").Value
.LIST(i, 2) = RS("URUN_ACIKLAMA").Value
End With
i = i + 1
End If
RS.movenext
Loop
RS.Close: sorgu = ""
https://www.tech-recipes.com/database/sql-server-how-to-check-if-a-file-exists-in-a-directory/ Burada yapmışlar gibi ama kendi koduma uyarlayamadım.