Xin Test giúp đoạn code có chuẩn không?

[bonddth]

Public Function kiemtra(FileName As String)
Dim Exist As Integer
On Local Error Resume Next
Exist = Len(Dir(FileName$))
On Local Error GoTo 0
If Exist = 0 Then
kiemtra = False
Else
kiemtra = True
End If
End Function

 

[voda]

Bạn chỉnh lại như sau xem thử:

Public Function kiemtra(PathName As String, FileName As String)
   Dim Exist As Integer
   On Local Error Resume Next
      Exist = Len(Dir(PathName & FileName))
   On Local Error GoTo 0
        If Exist = 0 Then
                kiemtra = False
        Else
                kiemtra = True
        End If
End Function

Chú ý : Tên đường dẫn, tên file đặt trong dấu " ".

 

[bonddth]

Ban voda hướng dẫn cụ thể hơn được ko

Cái đoạn mình đưa lên chạy được nhưng khi copy qua máy khác thì đoạn đó bị test Username nên không chạy được. Nó chỉ chạy trên máy nào có cùng Username thôi.

 

[voda]

-Đoạn code của bạn vẫn chạy ở máy mình. Điều này chứng tỏ code trong VBA không bị ràng buộc gì bởi usename của máy.
-Hàm bạn viết chỉ có 1 đối số. Viết như thế bạn chỉ kiểm tra được những file nằm trong My Document. Mình thêm đối số đường dẫn vào để giúp xác định sự tồn tại của file trong máy.
-Nếu viết đầy đủ, phải thêm vào 1 đối số nữa để có thế kiểm tra file theo thuộc tính. Ví dụ file ẩn chẳng hạn.

 

[ptm0412]

Đoạn code ở bài 1 có thể chạy trên mọi máy và mọi user, nếu như bạn dùng trong sheet:
Thí dụ:
- A1=D:\Data\abc.xls
- B1=kiemtra(A1)

Tuy nhiên không thấy được file ẩn.