試圖「迭代」的文件夾

我不知道如果我用正確的字：我想「迭代」 trought使用待辦事項文件雖然試圖「迭代」的文件夾

我失敗的嘗試的文件夾：

Sub Main() 

    Dim myurl As String 
    Dim m As Object 
    myurl = "\\myroute\myroute" 
    ChDir(myurl) 
    m = Dir(myurl) 

    Do While m <> "" '<--m = nothing? 

     ...'lines not important here 

    Loop 

End Sub

但由於某種原因，當我開始調試時，m沒有值（m =無），所以「do while」bucle被忽略。我在做什麼錯？任何想法如何做到這一點？「\ myroute \ myroute」確實存在

來源

2013-07-22 phalanx

你真的在用什麼語言？ vb.net和VBA是非常不同的平臺。 –

這是VB.Net還是excel VBA？你有兩個標籤。 –

Visual Studio的VB – phalanx

有在.NET中一個非常有用的方法來做到這一點Directory.EnumerateFiles：

For Each fileName As String In Directory.EnumerateFiles(myDirectory) 
    ' Add your code 
Next

您必須導入System.IO命名空間來使用Directory類：

Imports System.IO

來源

2013-07-22 23:31:19

試圖「迭代」的文件夾

回答

相關問題