Kiểm tra sự tồn tại của 1 file nào đó và lấy đúng tên của App (tên chương trình của mình)
Video demo:
Trong video này mình sẽ tìm tập tin
DLL
Bạn tạo 1 file modules có nội dung:
Mã:
Sau đó bạn code Form
Tại Form_Load() các bạn code như sau:
Mã:
Vậy là xong
Giải thích thêm:
App.EXEName là lấy tên của chương trình của bạn như trong video tên chương trình của mình là VCF_Perfect thì tên của file dll phải là VCF_Perfect.dll thì nó mới chạy còn nếu không phải thì nó sẽ xuất ra msgbox thông báo
Video demo:
Trong video này mình sẽ tìm tập tin
DLL
Bạn tạo 1 file modules có nội dung:
Mã:
- Code:
[color=blue]Public Function FileExist(FileName As String) As Boolean
Dim found As String
FileExist = False
found = VBA.Dir(FileName)
If Len(found) = 0 Then
MsgBox ("Khong tim thay tap tin dll"), vbCritical, "VCF_Perfect"
End
End If
End Function[/color]
Sau đó bạn code Form
Tại Form_Load() các bạn code như sau:
Mã:
- Code:
[color=blue]Public dllpath As String
Private Sub Form_Load()
dllpath = (App.Path + "" + App.EXEName + ".dll")
Call FileExist(dllpath)
End Sub[/color]
Vậy là xong
Giải thích thêm:
App.EXEName là lấy tên của chương trình của bạn như trong video tên chương trình của mình là VCF_Perfect thì tên của file dll phải là VCF_Perfect.dll thì nó mới chạy còn nếu không phải thì nó sẽ xuất ra msgbox thông báo