2

特定のフォルダー (C: など) のデータをファイル サイズのテキスト ファイルに変換する VBscript があります。ここでの問題は、ファイル サイズが kb ではなくバイトに変換されることです。このスクリプトを変更して、正確なファイル サイズを kb 単位で取得する方法を教えてください。以下は私のVBscriptです：

Dim fso
Dim ObjFolder
Dim ObjOutFile
Dim ObjFiles
Dim ObjFile

'Creating File System Object
Set fso = CreateObject("Scripting.FileSystemObject")

'Getting the Folder Object
Set ObjFolder = fso.GetFolder("C:\Users\User\Desktop\Folder A")

'Creating an Output File to write the File sizes
Set ObjOutFile = fso.CreateTextFile("C:\Users\User\Desktop\IDENTIFIYING ZERO FILE SIZE KB.txt")

'Getting the list of Files
Set ObjFiles = ObjFolder.Files

'Writing sizes and Path of each File to Output File
For Each ObjFile In ObjFiles
    ObjOutFile.WriteLine(ObjFile.size & String(50 - Len(ObjFile.size), " ") & ObjFile.Path)
Next

ObjOutFile.Close
4

1 に答える 1

4

サイズを 1024 で割り、kB で取得し、値を適切な桁数 (例: 2) に丸めます。

For Each ObjFile In ObjFiles
  size = Round(ObjFile.size / 1024, 2)
  ObjOutFile.WriteLine size & String(50 - Len(size), " ") & ObjFile.Path
Next
于 2013-09-04T22:00:05.617 に答える