Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách lấy bất kì 1 file - mở file bằng VBA Access
#1
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 

①Nút lấy file
Mã:
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 Sub

② Mở File đã lấy
Mã:
Private 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 Sub

Mọi đóng góp xin vui lòng cmt dưới bài viết
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
(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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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

Chương trình này là lấy đc tất cả cac định dạng file , và mở đc hết đó bạn . 
kể cả các đuôi định dạng  hình ảnh vvvv
Chữ ký của Cuong Servenet Cuong Servenet,gia nhập Thủ Thuật Access từ 12-07 -18.
ღღღღღTài sản của Cuong Servenet (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn So sánh Access và ASP windowforms Cuong Servenet 7 427 11-03-19, 04:49 PM
Bài mới nhất: lmthu
Photo Hướng Dẫn Cách tạo nhiều Button cho Continuous Form jeck09nt 3 189 27-02-19, 08:36 AM
Bài mới nhất: lmthu
  [Help] Nhờ mọi người giúp Đóng gói file access thành file cài đặt ngochieu8109 1 254 20-02-19, 03:05 PM
Bài mới nhất: vuthaiha90
  [Hỏi] Xuất file Excel Nguyên Thông 7 320 20-02-19, 11:59 AM
Bài mới nhất: Nguyên Thông
  [Hỏi] Tự điền số HD khi nhập vào bảng longkd_bvct@yahoo.com.vn 2 268 30-01-19, 08:48 AM
Bài mới nhất: longkd_bvct@yahoo.com.vn

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối