+- 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ığı: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek (/konu-salt-okunur-dosyalari-gizli-dosyalari-sistem-dosyalarini-eklemek.html)
Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - accessman - 21/05/2020
File Exists fonksiyonunu kullanırken Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını da kontrol etmesi için ne yapmalıyız
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - ozanakkaya - 21/05/2020
(21/05/2020, 08:10)accessman yazdı: File Exists fonksiyonunu kullanırken Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını da kontrol etmesi için ne yapmalıyız
Hangi fonksiyondan bahsediyoruz? Fonksiyonu yazınız.
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - accessman - 21/05/2020
Public Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
Dim lngAttributes As Long
If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well.
Else
'Strip any trailing slash, so Dir does not look inside the folder.
Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If
'If Dir() returns something, the file exists.
On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - ozanakkaya - 21/05/2020
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
RE: Salt Okunur Dosyaları, Gizli Dosyaları, Sistem Dosyalarını Eklemek - accessman - 21/05/2020
teşekkürler