Dosya Yolunun Yazilabilir Olup Olmadigini Bulma

Dosya yolunun yazilabilir olup olmadigini kontrol edebilecegimiz bir KTF asagidaki sekilde olabilir;

Public Function  IsPathWriteable(path As String) As Boolean
' Yazilabilirse True sonucunu doguracaktir.
On Error Resume Next
Dim TempFileName As String, fn As Integer
TempFileName = MakeTempFileName(path)
fn = FreeFile
Open TempFileName For Output As #fn
' no error - this path is writeable.
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
' Be sure path ends with .
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

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 7 =