ファイルを選択

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = Filter_

objDialog.InitialDir = InitialDir_

intResult = objDialog.ShowOpen

    Path = objDialog.FileName

Set fso = CreateObject("Scripting.FileSystemObject")

    filename = fso.getFileName(Path)'ファイル名取得

    FileEx = fso.GetExtensionName(filename)'拡張子取得

'参照: http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/jan05/hey0128.mspx