文字列の一部を取得するには？ (ID:121373)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >strTemp(0) = Right(zero & CStr(lngTemp), lnglen) この場合は、"9999"の次は"0000"になり > strTemp(0)=Format(Clng(strTemp(0)+1&,"0000") この場合は、"9999"の次は"10000"になるので注意が必要です。 ファイルシステムオブジェクトを使うならこんな感じです。 Private Function IncrementFileName(strFileName As String) A String Dim fso As Object Dim strFolderName As String 'フォルダ名 Dim strBaseName As String '拡張子を除いたファイル名 Dim strExtensionName As String '拡張子 Set fso = CreateObject("Scripting.FileSystemObject") strFolderName = fso.GetParentFolderName(strFileName) strBaseName = fso.GetBaseName(strFileName) strExtensionName = fso.GetExtensionName(strFileName) '9999の次は10000になる IncrementFileName = strFolderName & "\" & _ Format$(CLng(strBaseName) + 1, "0000") & "." & _ strExtensionName Set fso = Nothing End Function