あるフォルダのファイル名を取得したい（vbs）

質問

VBスクリプトを使って、TESTフォルダにあるJPGファイル中で、一番新しいファイルのファイル名を取得したいと思っています。

JPGは、ファイル名が日付.jpgになっています。例）061123.jpg

vbsは苦手で途中挫折してしましました。。ぜひ教えて頂けないでしょうか。
---------------
Dim Fs,strPath,Fl

Set Fs = CreateObject("Scripting.FileSystemObject")
strPath = "C:\Test\"

Set Fl = Fs.GetFile(strPath)
MsgBox Fl

Set Fs = Nothing
Set Fl = Nothing

回答No.1

ham_kamo · ベストアンサー

単純に名前で比較していいのなら、
Dim Fs, strPath, Fl, F, NewFile

Set Fs = CreateObject("Scripting.FileSystemObject")
strPath = "C:\Test\"
NewFile = ""

Set Fl = Fs.GetFolder(strPath)

For Each F In Fl.Files
If F.Name > NewFile Then
NewFile = F.Name
End If
Next

MsgBox (NewFile)

Set Fs = Nothing
Set Fl = Nothing

お礼

ありがとうございます。
バッチりでした。