16/11/26 03:10:01.99 6+zLlKX90.net
>>973
ありがとう
ただ、サブフォルダも含めて取得したいんだ
UserProfile = TRIM( DOSCMD("echo %USERPROFILE%"))
SetDir1 = UserProfile + "\Contacts"
SetDir2 = UserProfile + "\Favorites"
SetDir3 = UserProfile + "\Downloads"
SetDir4 = UserProfile + "\Desktop"
SetDir5 = "D:\"
DIM Target[] = "アドレス帳","お気に入り","ダウンロード","デスクトップ","Dドライブ"
DIM Dir[] = SetDir1, SetDir2, SetDir3, SetDir4, SetDir5
PsCmd = "(Get-ChildItem -Recurse <#DBL>"
PsCmd_Fi = "<#DBL> | Where-Object { ! $_.PsIsContainer }).Count"
PsCmd_Fo = "<#DBL> | Where-Object { $_.PsIsContainer }).Count"
for i = 0 to 4
File = POWERSHELL( PsCmd + Dir[i] + PsCmd_Fi, FALSE, FALSE)
Folder = POWERSHELL( PsCmd + Dir[i] + PsCmd_Fo, FALSE, FALSE)
Size = ""
print "Target" + FORMAT( (i+1), 2) + ": " + Target[i]
print "File : " + TRIM( File)
print "Folder : " + TRIM( Folder)
print "Size : " + TRIM( Size) + "KB"
print ""
next
PowerShellで途中まで作って挫折したよ