用FSO获得图片文件的信息(大小，宽，高

封面图 • 2025-04-27 • asp

在使用 FileSystemObject (FSO) 获取图片文件的信息时，FSO 本身并不直接支持获取图片的宽度、高度等属性。FSO 是一个用于处理文件系统对象的工具，但它无法解析图片文件的内容。要获取图片的宽度和高度，通常需要借助其他库或工具，例如 GDI+（在 Windows 平台上）或第三方图像处理库。

以下是一个示例代码，展示如何结合 FSO 和 GDI+ 来获取图片文件的大小、宽度和高度：

### 使用 VBScript 示例

```vbscript
' 创建 FileSystemObject 对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 指定图片文件路径
strFilePath = "C:\path\to\your\image.jpg"

' 检查文件是否存在
If fso.FileExists(strFilePath) Then
    ' 获取文件信息
    Set file = fso.GetFile(strFilePath)
    
    ' 获取文件大小（以字节为单位）
    fileSize = file.Size
    
    ' 获取图片宽度和高度
    Dim objShell, objFolderItem, objImg
    Set objShell = CreateObject("Shell.Application")
    Set objFolderItem = objShell.Namespace(fso.GetParentFolderName(strFilePath)).ParseName(fso.GetFileName(strFilePath))
    
    If Not objFolderItem Is Nothing Then
        ' 获取图片的宽度和高度
        imgWidth = objFolderItem.ExtendedProperty("Width")
        imgHeight = objFolderItem.ExtendedProperty("Height")
        
        ' 输出结果
        WScript.Echo "文件名: " & fso.GetFileName(strFilePath)
        WScript.Echo "文件大小: " & fileSize & " 字节"
        WScript.Echo "图片宽度: " & imgWidth & " 像素"
        WScript.Echo "图片高度: " & imgHeight & " 像素"
    Else
        WScript.Echo "无法获取图片的宽度和高度。"
    End If
Else
    WScript.Echo "文件不存在: " & strFilePath
End If

' 清理对象
Set fso = Nothing
Set objShell = Nothing
```

### 说明：
1. **FileSystemObject (FSO)**：用于检查文件是否存在并获取文件的基本信息（如文件大小）。
2. **Shell.Application**：通过 Windows Shell 的 `ExtendedProperty` 方法获取图片的宽度和高度。
3. **图片文件路径**：你需要将 `strFilePath` 替换为你自己的图片文件路径。

### 注意事项：
- 这个方法依赖于 Windows Shell 的功能，因此它只适用于运行在 Windows 系统上的脚本。
- 如果你需要跨平台支持，可以考虑使用 Python 或其他编程语言，并结合相应的图像处理库（如 PIL/Pillow）来实现类似的功能。

希望这对你有帮助！