即使修改了文件名，如何使用 VBScript 获取任何文件类型的文件大小？

Question

我今天刚开始使用 VBScript，我正在尝试获取任何文件类型的文件大小。我的脚本只returns提供文件名的文件大小，但是如果文件名改变，它会报错：“找不到文件”

这是脚本：

CONST bytesToKb = 1024
strFile = "X:\My Docs\Reports\Report1.txt"

SET objFSO = CREATEOBJECT("Scripting.FileSystemObject")
SET objFile = objFSO.GetFile(strFile)

WScript.StdOut.WriteLine CINT(objFile.Size / bytesToKb)

如何修改第二行以接受任何文件名，以防文件名 Report1.txt 更改为 demo.txt？文件的路径将保持不变，只是文件名会发生变化。 ...提前致谢

Answer 1

您可以修复主文件夹并循环检查其中的所有文件：

Const bytesToKb = 1024
Set objFSO = CreateObject("Scripting.FileSystemObject")
MainFolder = "E:\TestFolder"
Set objFolder = objFSO.GetFolder(MainFolder)
For each objFile in objFolder.Files
    wscript.echo objFile.Name & vbTab & CINT(objFile.Size/bytesToKb) & " kb"
Next

即使修改了文件名，如何使用 VBScript 获取任何文件类型的文件大小？

How to get the file size of any file type using VBScript even if the file name is modified?

vbscript