Cuong Servenet > 14-08-18, 02:14 PM
Private Sub OpenPath1_Click()
Dim FileName As Long
With Application.FileDialog(msoFileDialogOpen)
.Title = "Chon File"
.Filters.Clear
.Filters.Add "Tat ca cac file", "*.*"
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
.InitialFileName = CurrentProject.Name
If .Show = -1 Then
Me!FILE_PATH = .SelectedItems(1)
FileName = InStrRev(Me!FILE_PATH, "\")
Me!FILE_NAME = Mid(Me!FILE_PATH, FileName + 1)
End If
End With
End SubPrivate Sub OpenFILE1_Click()
On Error GoTo Err_Step
Dim filepath As String
Dim fFso As Object
If Nz(Me!FILE_PATH, "") = "" Then
MsgBox "xyz_abc & Chr(13) & Chr(13) & Chr(10) & _
"chon duoi file", vbExclamation, "khong co file"
Exit Sub
Else
filepath = Me!FILE_PATH
Set fFso = CreateObject("Scripting.FileSystemObject")
If (fFso.FileExists(filepath) = True) Then
Application.FollowHyperlink filepath
Else
MsgBox "abc_xyz" & Chr(13) & Chr(13) & Chr(10) & _
"ABCSEF", vbExclamation, "ZZZZZZZZZZZZ"
Exit Sub
End If
Set fFso = Nothing
End If
Exit_Step:
Exit Sub
Err_Step:
MsgBox Err.Description, vbCritical
Resume Exit_Step
End SubXuân Thanh > 14-08-18, 03:57 PM
(14-08-18, 02:14 PM)Cuong Servenet Đã viết: Mình chia sẻ cho anh em chương trình lấy bất kì 1 file nào trên máy tính và mở file đó .
chắc cũng sẽ có nhiều ae cần .
※ nếu có cách nào hay hơn mong anh em chỉ giáo thêm
Cuong Servenet > 14-08-18, 04:10 PM
(14-08-18, 03:57 PM)Xuân Thanh Đã viết:(14-08-18, 02:14 PM)Cuong Servenet Đã viết: Mình chia sẻ cho anh em chương trình lấy bất kì 1 file nào trên máy tính và mở file đó .
chắc cũng sẽ có nhiều ae cần .
※ nếu có cách nào hay hơn mong anh em chỉ giáo thêm
1/ Tôi chỉnh lại bài viết để đưa đoạn code trích dẫn cho dễ đọc
2/ Nút lấy file chỉ lấy được file access và nút mở file cũng vậy. Nên chỉnh cho lấy được mọi loại file hoặc chỉ những file người dùng muốn tìm và mở
3/ Mở file cũng rất đơn giản không cần cầu kỳ đến vậy. Một hàm Shell là đủ. Và còn thiếu hàm FileExists(...) nếu không sẽ bị lỗi
Thân mến