Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
Dim lngAttributes As Long
lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)
If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory)
Else
Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If
On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function
Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek
Bu Konudaki Yorumlar |
Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - Yazar: accessman - 21/05/2020, 08:10
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - Yazar: ozanakkaya - 21/05/2020, 10:32
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - Yazar: accessman - 21/05/2020, 10:37
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - Yazar: ozanakkaya - 21/05/2020, 10:40
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - Yazar: accessman - 21/05/2020, 10:40
|
Konuyu Okuyanlar: 1 Ziyaretçi