Question

我不确定我是否使用了正确的词：我正在尝试＆＃34;迭代＆＃34;使用Do While

创建文件夹

我失败的尝试：

    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 =无）所以＆＃34;做什么＆＃34; bucle被忽略了。我究竟做错了什么？知道怎么做吗？＆＃34; \ myroute \ myroute＆＃34;确实存在

Answer 1

.NET中有一个非常有用的方法来执行此操作Directory.EnumerateFiles：

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

您必须导入System.IO命名空间才能使用Directory类：

Imports System.IO

试图“迭代”一个文件夹

1 个答案: