ファイル名を連番にして保存するには？

---

先週VBをやり始めたものです。
スクリーンショットで取ったものを連番にして保存していきたいのですがどのようにしたらよいのでしょうか。
OS 2k VB6.0

編集 削除

---

スクリーンショットを連番じゃないファイルに保存する部分は出来ているのですか？

編集 削除

---

ある特定のフォルダに保存して、そのフォルダの中には連番で保存するファイル
しかないなら、こんな関数を作れば、新しいファイル名が取得できます。

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

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。