ファイル名を連番にして保存するには？ (ID:86265)

名前

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

本文 ある特定のフォルダに保存して、そのフォルダの中には連番で保存するファイル しかないなら、こんな関数を作れば、新しいファイル名が取得できます。 Private Function GetFileName(strFolderName As String) As String Dim fso As FileSystemObject Dim FileCount As Long Set fso = CreateObject("Scripting.FileSystemObject") FileCount = fso.GetFolder(strFolderName).Files.Count GetFileName = CStr(FileCount + 1) & ".jpg" Set fso = Nothing End Function