FSO.GetExtensionNameゲットエクステンションネーム メソッド

本ページには広告が含まれています。

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

構文
FileSystemObject.GetExtensionName( path )
引数
path 省略可
パス
戻り値

プログラム実行例

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

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

WITH FSO
	PRINT "ファイル名︰" + .GetFileName(path)
	PRINT "ベース名︰" + .GetBaseName(path)
	PRINT "拡張子︰" + .GetExtensionName(path)
	PRINT "親フォルダ︰" + .GetParentFolderName(path)
ENDWITH
結果
CSV
ファイル名︰   sample.txt
ベース名︰     sample
拡張子︰       txt
親フォルダ︰   D:\Desktop
使用関数

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

UWSC
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
使用関数

指定フォルダ内の拡張子をすべて小文字にする

UWSC
CONST ssfDESKTOP = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM folderspec = Shell.NameSpace(ssfDESKTOP).Self.Path
DIM Folder = Shell.NameSpace(folderspec + "\test\")
DIM FolderItems = Folder.Items

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")

FOR FolderItem IN FolderItems
    DIM path = FolderItem.Path
    WITH FSO
        DIM filename1 = .GetParentFolderName(path) + "\" + .GetBaseName(path) + "." + .GetExtensionName(path)
        DIM filename2 = .GetBaseName(path) + "." + STRCONV(.GetExtensionName(path), SC_LOWERCASE)
    ENDWITH
    DOSCMD("RENAME <#DBL>" + filename1 + "<#DBL> <#DBL>" + filename2 + "<#DBL>")
NEXT
使用関数
解説

関連記事

IE.Navigate メソッド
URLまたは絶対パスで指定されたファイルを開きます。
Shell.Explore メソッド
指定したディレクトリをエクスプローラで開きます。
File.Path プロパティ (FSO)
指定したファイルのパスを返します。
getBitmap関数 (自作関数)
引数に指定したビットマップ画像のサイズ・幅・高さ・ビットの深さを配列で返します。
ShellLinkObject.Path プロパティ (Shell)
リンク オブジェクトへのパスを取得または設定します。
File.Type プロパティ (FSO)
指定したファイルの種類を返します。
FSO.BuildPath メソッド
フォルダパスとフォルダまたはファイルの名前を結合したパス文字列を返します。
FSO.GetFolder メソッド
指定したパスのFolder オブジェクトを返します。