本帖最后由 batman 于 2011-5-21 10:17 编辑
批版:- @echo off&setlocal enabledelayedexpansion
- for /l %%a in (1,1,30) do set "kg=!kg! "
- for /r %%a in (*) do (
- set "str=%%~nxa%kg%"
- echo !str:~,20!%%~za
- )
- pause>nul
复制代码 vbs版:- For i = 1 To 30
- kg = kg & " "
- next
- Set fso = CreateObject("scripting.filesystemobject")
- Set ws = CreateObject("wscript.shell")
- For Each file In fso.GetFolder(ws.CurrentDirectory & "\").Files
- vbstr = vbstr & Left(file.Name & kg, 20) & file.Size & vbCrLf
- Next
- Set ws = Nothing
- Set fso = Nothing
- MsgBox vbstr
复制代码
|