Dosya Yolu Kontrolü

[sgunsel]

Vba da hardiskte bir dosyanın var olup olmadığını hangi kodla öğrenebiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=12133

Not: Eğer dosyanın bakılacağı klasör belli ise basit bir kodlada çözüm bulunabilir. Bunun için dosya yolunu ve adını verin.

 

[sgunsel]

sayfadaki a1 hücresindeki dosyanın var olup olmadığını kontrol edecem fakat A1 hücresindeki dosya yolunu "Application.GetOpenFilename("Text Files (*.*), *.*")" dosya aç formu ile belirliyorum

 

[Levent Menteşoğlu]

Aşağıdaki kod A1 hücresinde yazılı dosyanın olup olmadığına bakar.

Sub ara()
deg = CreateObject("Scripting.FileSystemObject").FileExists([a1])
If deg = True Then
MsgBox "Bu isimde bir dosya var"
Else
MsgBox "Bu isimde bir dosya yok"
End If
End Sub

 

[sgunsel]

İlgilendiğiniz için Çok teşekkür ederim,Sağolun