ディレクトリVBA内のループスルーファイル

Question

1つのディレクトリ内のファイルをループしていますが、すべて正常に動作しますが、ファイルをモジュール内の別の関数に渡すと奇妙になります。ループ内で最初に読み込まれたファイルをスキップします。 たとえば、fileの最初のループ実行が"File1"であるとしたら、copyFile (file)に達すると、"File2"が関数に渡されます。何らかの理由で、copyFile関数を呼び出すと自動的にループがインクリメントされます。

Dim file As Variant 
file = Dir("PATH TO MY DIRECTORY") 
Do While Len(file) > 0 
    Debug.Print file 'Here the right name is printed 
    file = Dir 'file here is also correct, at the beginning of the loop it shows File1 
    copyFile (file) 'Here suddenly the next file is sent to the copyFile 

Loop 

私はそこでfileを格納し、文字列を定義しようとしたし、その後copyFile(stringFile)に渡すが、同じことが起きています。

Answer 1

あなたはこのようにしてみてくださいことができます：

Dim file As Variant 
file = Dir("PATH TO MY DIRECTORY") 
Do While Len(file) > 0 
    Debug.Print file 'Here the right name is printed 
    copyFile (file) 'Here suddenly the next file is sent to the copyFile 
    file = Dir 
Loop 

私はそれが動作するはずだと思います。ここでもコードを見てください： Loop through files in a folder using VBA?