GetExtensionName

指定したパスの最後のコンポーネントのファイル拡張子名を返します。

構文
FileSystemObject.GetExtensionName( path )
引数
path
戻り値

プログラム実行例

パス名からファイル名・拡張子・ベース名・親フォルダを取得

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM path = "D:\Desktop\sample.txt"

WITH FSO
	PRINT "ファイル名<#TAB>" + .GetFileName(path)
	PRINT "ベース名<#TAB>" + .GetBaseName(path)
	PRINT "拡張子<#TAB><#TAB>" + .GetExtensionName(path)
	PRINT "親フォルダ<#TAB>" + .GetParentFolderName(path)
ENDWITH
    (1) (5) (6) (7) (8)
結果
ファイル名	sample.txt
ベース名	sample
拡張子		txt
親フォルダ	D:\Desktop

指定したフォルダ内の拡張子とファイルの種類を返す

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM Files = FSO.GetFolder(folderspec).Files

FOR File IN Files
	PRINT FSO.GetExtensionName(File.Name) + ":" + File.Type
NEXT
    (1) (3)
  1. FSO.Folder.Files(3)
  2. FSO.Files.Item(5)
  3. (6) (6) (6)