Để giữ cho ứng dụng của bạn suôn sẻ khi chạy, tránh trường hợp bị lỗi chương trình và ngừng một cách "bất hợp pháp", nếu người gặp lỗi là chính bạn thì không có gì, nhưng nếu người gặp lỗi không phải là bạn, bạn sẽ bị "mất mặt" vì chương trình của mình. Cụ thể hơn, trong quá trình làm việc với file, bạn cần phải luôn kiểm tra file có tồn tại hay không trước khi thực hiện một tác vụ ghi đọc nào đó. Dưới đây là một chương trình con dùng để kiểm tra, đối số duy nhất là đường dẫn file cần mở.
Ví Dụ:
Public Sub VerifyFile(FileName As String)
On Error Resume Next
'Mở file thử để kiểm tra
Open FileName For Input As #1
If Err Then
MsgBox ("The file " & FileName & " cannot be found.")
Exit Sub
End If
Close #1
End Sub
hoặc:
Private Function FileExists(filename) As Boolean
On Error GoTo ErrorHandler
FileExists = (Dir(filename) <> "")
Exit Function
ErrorHandler:
FileExists = False
End Function
Sử dụng:
If FileExists("C:filename.txt") = False Then MsgBox ("Tập tin này không tồn tại.")
Theo : http://www.caulacbovb.com
Ví Dụ:
Public Sub VerifyFile(FileName As String)
On Error Resume Next
'Mở file thử để kiểm tra
Open FileName For Input As #1
If Err Then
MsgBox ("The file " & FileName & " cannot be found.")
Exit Sub
End If
Close #1
End Sub
hoặc:
Private Function FileExists(filename) As Boolean
On Error GoTo ErrorHandler
FileExists = (Dir(filename) <> "")
Exit Function
ErrorHandler:
FileExists = False
End Function
Sử dụng:
If FileExists("C:filename.txt") = False Then MsgBox ("Tập tin này không tồn tại.")
Theo : http://www.caulacbovb.com