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

Kouji 2004-10-27 05:54:17 No: 86263

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

z 2004-10-27 19:39:43 No: 86264

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

LESIA 2004-10-27 23:46:40 No: 86265

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

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