[ahmedabdelaliem]

اخي الكريم Genius Live


Private Function IsFileOpen(ByVal filename As String) As Boolean
Try
System.IO.File.Open(filename, IO.FileMode.Open,
IO.FileAccess.Read, IO.FileShare.None)
FileClose(1)
Return False
Catch ex As Exception
Return True
End Try
End Function




اخي الكريم انت في قسم فيجوال بيسك 6 وليس net.