VBS 浏览本地文件的三种方式及完整路径获取

在 VBScript（VBS）编程中，浏览本地文件并获取其完整路径是一项常见的任务。下面将为您介绍三种常用的方式。

方式一：使用 FileSystemObject 对象

FileSystemObject 是 VBS 中用于文件操作的重要对象。通过创建该对象，可以轻松浏览文件和文件夹。

以下是一个示例代码：

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\YourFolder") '指定要浏览的文件夹路径
For Each file In folder.Files
    WScript.Echo file.Path '输出文件的完整路径
Next

方式二：使用 Windows 脚本宿主的 File 集合

通过 Windows 脚本宿主提供的 File 集合，也能实现文件浏览和路径获取。

示例如下：

Set files = WScript.CreateObject("Scripting.FileSystemObject").GetFolder("C:\YourFolder").Files
For Each file In files
    WScript.Echo file.Path
Next

方式三：使用 API 函数

虽然使用 FileSystemObject 较为方便，但在某些特殊情况下，可能需要调用 Windows API 函数来实现更高级的文件操作。

以下是一个简单的示例，使用 API 函数来获取文件路径：

' 声明所需的 API 函数
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

' 定义相关结构
Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * 260
    cAlternateFileName As String * 14
End Type

Sub BrowseFiles(folderPath)
    Dim hFindFile As Long
    Dim findData As WIN32_FIND_DATA

    hFindFile = FindFirstFile(folderPath & "\*", findData)

    If hFindFile <> -1 Then
        Do
            If (findData.cFileName <> "." And findData.cFileName <> "..") Then
                WScript.Echo folderPath & "\" & findData.cFileName
            End If
        Loop While FindNextFile(hFindFile, findData)
        FindClose hFindFile
    End If
End Sub

BrowseFiles("C:\YourFolder") '指定要浏览的文件夹路径

在实际应用中，您可以根据具体需求选择合适的方式来浏览本地文件并获取其完整路径。要注意文件权限和路径的正确性，以确保程序能够正常运行。通过掌握这些方法，您能够更加灵活地处理本地文件操作，为您的 VBS 编程项目增添更多的功能和实用性。