【VBA】 フルパスからファイル種類名称を取得する

フルパスからファイル種類名称を取得する関数です。 c:\aaa\bbb\ccc.txt の場合、 「テキストファイル」 を取得します。

c:\aaa\bbb\ccc.xlsx の場合、「Microsoft Excel ワークブック」を取得します。

関数概要

  • 関数名: FNCFullPathToFileTypeName
  • 入力引数; P_IN_FullPath ( String 型 ) : ファイル種類名を取得するフルパスを設定します。
  • 出力引数: P_OUT_FileTypeName ( String 型) : ファイル種類名が設定されます。
  • 返り値:リターンコードが返却されます。

実行例

  • 準備中

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

  • 準備中

ソースコード


'-----------------------------------------------------------------
' フルパスからファイル種類名称を取得する
'-----------------------------------------------------------------
Function FNCFullPathToFileTypeName(P_IN_FullPath As String, P_OUT_FileTypeName As String) As Integer
On Error GoTo ErrorHandler
    FNCFullPathToFileTypeName = Me.ReturnError
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    P_OUT_FileTypeName = FSO.GetFile(P_IN_FullPath).Type
    Set FSO = Nothing
    FNCFullPathToFileTypeName = Me.ReturnNomal
    Exit Function
ErrorHandler:
    MsgBox Err.Number & ":" & Err.Description, vbCritical & vbOKOnly, "エラー"
    FNCFullPathToFileTypeName = Err.Number
    Exit Function
End Function

ソースコード説明

  • 準備中
[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格:1944円(税込、送料無料) (2019/7/23時点)

返信を残す

メールアドレスが公開されることはありません。