• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Làm việc với folders

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Làm việc với folders
• Làm việc với folders

• RE: Làm việc với folders

  haquocquan > 22-02-11, 12:45 AM

  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
• Bài trước Bài tiếp