フォルダ内のすべてのファイル名を書き出す

１，以下のスクリプトをテキストエディタに貼り付けて、*.vbsで保存。

２，作成したVBSファイルをダブルクリックすると、メモ帳が起動し、そこに同一フォルダ内にあるファイル名が書き出される。


Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

Set objWshShell = WScript.CreateObject("WScript.Shell")

Set objFolder = objFS.GetFolder(".")

Set objTS = objFS.OpenTextFile("FileNames.txt", 2, True)

For Each fn in objFolder.Files
If Not((fn.Name = "files.vbs") Or (fn.Name = "FileNames.txt")) Then
objTS.WriteLine "・" + Left(fn.Name, Len(fn.Name)-4)
End If
Next

objWshShell.Run "FileNames.txt"

ナムル～

材料は、


・もやし １袋
・ニラ ２、３本
・ごま油 大２
・醤油 大１.５
・いりごま 大２
・豆板醤 小０.５
・おろしにんにく １片
・一味 適量
・オイスターソース 適量

以下は思い付き
・てんめんじゃん(豆板醤は変換できたのに…
・酢
・青じそ（アクセントとして高評価



たれを作り、サッと茹でて湯を切ったもやしとニラを熱いうちに混ぜる。はい、出来上がり。



�番外編�
油そば。１人分のたれの量は上記の通り。もやしは２人で１袋くらいでいいと思う。その辺りはテキトーに。ゴボウを入れると歯ごたえもでてなお良い。鶏のササミを蒸したものなどもトッピングにいい。油分はごま油で充分なので、あっさりしたトッピングがいいとおもう。試食の感想は、もう少し甘い方がいい、タレがきつい、など。にんにくがきいているので、食欲落ち気味のときにもよさそうな味。

ファイル名をすべて小文字に変換。アルファベットだけ対応

Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFS.GetFolder(".")

'///一時フォルダの生成
objFS.CreateFolder "temp"

'///一時フォルダtempにファイル名を小文字に変換してコピー
For Each fn in objFolder.Files
If fn.Name <> "FileNameChanges-ToLowerCase.vbs" Then
strOldFileName = fn.Name
Set objFile = objFS.GetFile(fn.Name)
objFile.Copy "temp\" + LCase(strOldFileName), True
End If
Next

'///主フォルダ内のファイルを削除
For Each fn in objFolder.Files
If fn.Name <> "FileNameChanges-ToLowerCase.vbs" Then
fn.Delete
End If
Next

'///temp内のファイルを主フォルダに移動
Set objFolderTemp = objFS.GetFolder("temp")
For each fn in objFolderTemp.Files
fn.Move objFolder.Path +"\"
Next

objFolderTemp.Delete

WScript.Echo "ファイル名を小文字に変換しました"