[[20170523092922]]　『空き番号の検索』（トキ）　ページの最後に飛ぶ

『空き番号の検索』（トキ）

フォルダ内にファイル群があります。
ファイル名には命名規則があり、登録日＆コード.txtとなっています
例に出すと「20170523C01.txt」で20170523は登録日、C01はコードです。

このフォルダに新たにファイルを格納する際、すでに同名のファイルが
ある場合、コードC01の数字部分を36などの空き番号にして格納します。

数字部分は連番でなくても構わないので、みんな任意の番号を取ってしまい
空き番号を探すのが適度に面倒くさいのです。

そこで、この部分をマクロにしたいのですが、空き番号を検索して
任意の番号を表示するロジックがわかりません。
任意の番号は01～99です。

イメージとしては
1　ボタンをポチ。
2　今日付けのファイルの空き番号検索
3　「○○番あいてるよ」と1コだけ表示

どなたか教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Sub test()
    MsgBox fNewNo("c:\test\", Date, "C01")
 End Sub

 Function fNewNo(cPath As String, dw As Date, cw As String) As String
    Dim cFile As String
    Dim i As Long

    cFile = cPath & Format(dw, "YYYYMMDD") & cw & ".txt"
    If Dir(cFile) = "" Then
        fNewNo = cw
        Exit Function
    End If

    For i = 1 To 99
        Mid(cFile, Len(cFile) - 5, 2) = Right(i + 100, 2)
        If Dir(cFile) = "" Then
            fNewNo = "C" & Right(i + 100, 2)
            Exit Function
        End If
    Next i

    fNewNo = "空き無し"
 End Function
（???） 2017/05/23(火) 10:19

コメント返信：

[ 一覧(最新更新順) ]

[[20170523092922]] 『空き番号の検索』（トキ） ページの最後に飛ぶ

[[20170523092922]]　『空き番号の検索』（トキ）　ページの最後に飛ぶ