Dá se na cestu zapisovat ?

Funkce:
Public Function  IsPathWriteable(path As String) As Boolean

   ' Vrací True, pokud se na cestu nechá zapisovat
   On Error Resume Next
   Dim TempFileName As String, fn As Integer

   TempFileName = MakeTempFileName(path)
   fn = FreeFile
   Open TempFileName For Output As #fn

   ' není chyba - na cestu se nechá zapisovat.
   If Err = 0 Then
      Close #fn
      Kill TempFileName
      IsPathWriteable = True
   Else
      IsPathWriteable = False
   End If

End Function

Public Function MakeTempFileName(path As String)

   Dim x As Integer, s As String

   If path = "" Then path = App.path

   If (Right(path, 1) <> "\") Then path = path & "\"

   x = 0
   Do
       x = x + 1
       s = path & x & ".tmp"
   Loop Until Dir(s) = ""

   MakeTempFileName = path & x & ".tmp"

End Function

Private Sub Form_Load()
    MsgBox IsPathWriteable("d:\")
End Sub

Zpět