B
bvtvba
Guest
Ở topic
Đây là câu chuyện đã từng làm đau đầu nhiều người code VBA.
Bài toán đặt ra là, khi người dùng kéo folder hay file, thì trên ô textbox hiển thị đường link của file hay folder đó.
Như vậy người code cần kiểm tra input, là đường link nhập vào có đúng hay không.
Tức là kiểm tra được file hay folder có tồn tại hay không trước khi thực thi đoạn code xử lý chính.
Em có xây dựng đoạn code dưới đây:
Mọi người cho thêm ý kiến để chúng ta thảo luận cho rôm rả nhé.
Bạn cần đăng nhập để thấy link
này, có một điều tuyệt vời đã được giải quyết, đó là người dùng có thể chọn file hay link folder.Đây là câu chuyện đã từng làm đau đầu nhiều người code VBA.
Bài toán đặt ra là, khi người dùng kéo folder hay file, thì trên ô textbox hiển thị đường link của file hay folder đó.
Như vậy người code cần kiểm tra input, là đường link nhập vào có đúng hay không.
Tức là kiểm tra được file hay folder có tồn tại hay không trước khi thực thi đoạn code xử lý chính.
Em có xây dựng đoạn code dưới đây:
Mã:
Sub test()
Dim lk As String
lk = "D:\CODE\0412"
Debug.Print KtraFileFolder(lk) 'Gia tri ky vong 2
lk = "D:\CODE\0412\DL.xlsb"
Debug.Print KtraFileFolder(lk) 'Gia tri ky vong 1
lk = "D:\THVBA"
Debug.Print KtraFileFolder(lk) 'Gia tri ky vong 0
End Sub
'0: Khong biet
'1: File
'2: Folder
Function KtraFileFolder(ByVal lk As String) As Byte
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(lk) Then
KtraFileFolder = 2
ElseIf fso.FileExists(lk) Then
KtraFileFolder = 1
Else
KtraFileFolder = 0
End If
End Function