Prüfen ob Datei Schreibbar

[WorldRacer]

Hi,

möchte gerne prüfen ob eine Datei Schreibbar ist (textdatei). Wie geht das?

 

[Dario Linsky]

Hi,

siehe z.B. hier: http://www.tutorials.de/forum/visual-basic/76789-dateien-auf-schreibschutz-pruefen.html

Grüße, D.

 

[Zvoni]

Hi,

möchte gerne prüfen ob eine Datei Schreibbar ist (textdatei). Wie geht das?

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" 
  (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE = -1
 
Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh As Long
  nFileSizeLow As Long
  dwReserved0 As Long
  dwReserved1 As Long
  cFileName As String * MAX_PATH
  cAlternate As String * 14
End Type

Private Sub Command1_Click()
  Dim Found As WIN32_FIND_DATA, Retval As Long, hFile As Long
 
  ' Suchen nach der ersten Datei - HIER DEINE DATEI EINSETZEN
  hFile = FindFirstFile("c:\myFile.txt", Found)
 
  ' Wenn keine Datei vorhanden, Vorgang abbrechen
  If hFile = INVALID_HANDLE_VALUE Then
    MsgBox "Dieses Verzeichnis enthält keine Dateien oder Ordner",  _
      vbInformation, "Suche Abbrechen"
    Exit Sub
  End If

    If CBool(Found.dwFileAttributes And vbReadOnly) then

        'Datei ist schreibgeschützt

    Else

        'Datei ist nicht schreibgeschützt

    End If
  FindClose hFile
End Sub

 

[Zvoni]

Hi,

siehe z.B. hier: http://www.tutorials.de/forum/visual-basic/76789-dateien-auf-schreibschutz-pruefen.html

Grüße, D.

Baäääh! FSO .. brrr... *schauder*