2021-08-30から1日間の記事一覧
'拡張子取得 Function GetExtension(ByRef パス As String) As String Dim str As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") str = fso.GetExtensionName(パス) GetExtension = SplitString(str, "]", 1) If Not fso …