Skip to content

Instantly share code, notes, and snippets.

@Satomaru
Created November 30, 2016 09:18
Show Gist options
  • Save Satomaru/e963fc75932781df43777adc81d6f61f to your computer and use it in GitHub Desktop.
Save Satomaru/e963fc75932781df43777adc81d6f61f to your computer and use it in GitHub Desktop.
Option Explicit
Dim application
Dim folder
Dim fileName
Dim line
Dim i
WScript.Echo "名前" & vbTab & "サイズ" & vbTab & "種類" & vbTab & "更新日時" & vbTab & "作成日時"
Set application = CreateObject("Shell.Application")
Set folder = application.Namespace(WScript.Arguments.item(0))
For Each fileName in folder.Items
line = ""
For i = 0 To 4
line = line & folder.GetDetailsOf(fileName, i) & vbTab
Next
WScript.Echo line
Next
@Satomaru
Copy link
Author

以下のように使ってください。

cscript getFileInfo.vbs C:\Users\Satomaru\Documents\work>list.txt

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment