VB 代码获取 E:\ 目录下所有文件详细列表到表格 - Excel 文件操作教程

以下是一个示例的VB代码，可以获取E:\目录下所有文件的详细列表，并将其填充到表格中：

Sub GetFilesDetails()
    Dim folderPath As String
    Dim filesList As Object
    Dim file As Object
    Dim rowIndex As Integer
    
    ' 设置文件夹路径
    folderPath = "E:\"
    
    ' 创建一个新的工作表
    Worksheets.Add
    Worksheets(1).Cells(1, 1).Value = "文件名"
    Worksheets(1).Cells(1, 2).Value = "路径"
    Worksheets(1).Cells(1, 3).Value = "创建日期"
    Worksheets(1).Cells(1, 4).Value = "修改日期"
    Worksheets(1).Cells(1, 5).Value = "文件大小"
    
    ' 获取文件列表
    Set filesList = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath).Files
    
    ' 遍历文件列表
    rowIndex = 2
    For Each file In filesList
        Worksheets(1).Cells(rowIndex, 1).Value = file.Name
        Worksheets(1).Cells(rowIndex, 2).Value = file.Path
        Worksheets(1).Cells(rowIndex, 3).Value = file.DateCreated
        Worksheets(1).Cells(rowIndex, 4).Value = file.DateLastModified
        Worksheets(1).Cells(rowIndex, 5).Value = file.Size
        rowIndex = rowIndex + 1
    Next file
    
    ' 自动调整列宽
    Worksheets(1).Columns.AutoFit
End Sub

你可以将以上代码复制到你的VB项目中，并调用GetFilesDetails子程序，它将会创建一个新的工作表，并将E:\目录下的所有文件的详细列表填充到表格中。文件名、路径、创建日期、修改日期和文件大小将显示在不同的列中。最后，代码会自动调整列宽以适应内容。