Đánh giá chủ đề:
  • 4 Votes - 2.5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Làm việc với folders
#11
Tiếp: liệt kê các file trong thư mục
Trong phần trước, đã có code liệt kê các filé trong thư mục nhưng là liệt kê Full Path
Đoạn code dưới đây chỉ liệt kê tên các file trong một thư mục cụ thể (không có Path)

Liệt kê và đưa tên các File trong sPath vào table xulydulieu

Mã:
Sub ListFiles(sPath As String)
    Dim FSO As Object
    Dim FSOFolder As Object
    Dim File As Object
    Dim rsFile As Recordset
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If FSO.FolderExists(sPath) = True Then
        Set FSOFolder = FSO.GetFolder(sPath)
        
        Set rsFile = CurrentDb.OpenRecordset("xulydulieu", dbOpenDynaset)
        
        For Each File In FSOFolder.Files
            rsFile.AddNew
            rsFile!FileName = File.Name
            rsFile.Update
        Next File
    End If
End Sub
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , maidinhdan


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 cơ bản về việc lập báo cáo tồn kho và in thẻ kho bằng query Xuân Thanh 30 14,953 13-02-15, 10:47 PM
Bài mới nhất: thucgia

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ơ