本ページには広告が含まれています。
指定したパスの最後のコンポーネントのファイル拡張子名を返します。
- 構文
- FileSystemObject.GetExtensionName( path )
- 引数
- path 省略可
- パス
- 戻り値
プログラム実行例
パス名からファイル名・拡張子・ベース名・親フォルダを取得
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結果
ファイル名︰ 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使用関数
指定フォルダ内の拡張子をすべて小文字にする
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 オブジェクトを返します。