UWSCでフォルダ選択ダイアログからフォルダを選択

フォルダ選択ダイアログからフォルダを選択し、そのフォルダ内の拡張子.txtの全てのファイルのファイル名を表示するプログラム

shell = CREATEOLEOBJ("Shell.Application")

root = "C:\Users\{ユーザー名}\Documents"

folder = shell.BrowseForFolder(0, "フォルダを選択して下さい", 0, root)

If folder = nothing Then

    exitexit

endIf



dir = folder.Items.Item.Path



//選択したフォルダ内の全てのテキストファイルのファイル名を表示

file_type = "*.txt"

for file in GETDIR(dir, file_type)

    print file

next

root = "C:\Users\{ユーザー名}\Documents"はフォルダダイアログを開くルートフォルダです。このコードではドキュメントフォルダにしています。{ユーザー名}のところは自分のユーザー名に変えてください。ドキュメントフォルダ以外のフォルダに変えたい場合はroot = の二重引用符の中を変えてください。