|
こんにちは。かみちゃん です。
>[Do while 〜Loopまで飛んでいる]ような気がします・・・
>(名前等は間違っていないようなので)
>すみません。
>[飛んでる]場合はどうしたらよいのでしょうか?
[#39978]でESMEYさんが提示されたコードではうまく動作するのでしょうか?
試しに、以下のようなコードでファイル名が表示されますか?
Sub test3()
Dim FolderName As String
Dim FileName As String
FolderName = "\\C:test"
FileName = Dir(FolderName & "\*.xls")
Do While FileName <> ""
MsgBox FolderName & "\" & FileName
FileName = Dir()
Loop
MsgBox "終了しました"
End Sub
[#39981]でKeinさんのコードのうち、ファイル名の取得部分だけ抜粋すると、
以下のようなコードになります。
Sub test4()
Dim FileName As String
Const FolderName As String = "\\C:test\"
FileName = Dir(FolderName & "*.xls")
Do While FileName <> ""
MsgBox FolderName & FileName
FileName = Dir()
Loop
MsgBox "終了しました"
End Sub
test3、test4ともに動作しないのであれば、
FolderName = "\\C:test"
は、合っているのでしょうか?
|
|