|
こんにちは、お力をお貸しください。
「C:\01便利機」フォルダの下にある「★****.xls」(*は毎回変わる)
のように先頭に★のついたファイル名を取得したいのですが、
以下の自作コードではうまくいきません。
※先頭に★のついたファイル名はそのフォルダに1つしかありません。
Sub file()
Const cnsDIR = "\*.*"
Dim strPATHNAME As String
Dim strFILENAME As String
strPATHNAME = "C:\01便利機能"
' 先頭のファイル名の取得
strFILENAME = Dir(strPATHNAME & cnsDIR, vbNormal)
MsgBox (strFILENAME)
Do While Left(strFILENAME, 1) = "★"
' 次のファイル名の取得
strFILENAME = Dir()
MsgBox (strFILENAME)
Loop
End Sub
上のコードだと最初のファイル名しか取得してくれません。
DO 〜
Loop While Left(strFILENAME, 1) = "★
に変更した場合、ファイルがなくなるまでループします。
条件式が間違っているんだとは思うのですが…。
ご教授いただければ幸いです。
|
|