VB.NET 迭代文件和目录

Question

我正在开发一个 VB.NET 程序，它将自动将我的工作备份到我的 FTP 服务器。到目前为止，我可以通过使用以下命令指定文件名来上传单个文件：

     'relevant part - above is where FTP object is instantiated
       Dim _FileStream As System.IO.FileStream = _FileInfo.OpenRead()

            Try
                'Stream to which the file to be upload is written
                Dim _Stream As System.IO.Stream = _FtpWebRequest.GetRequestStream()

                'Read from the file stream 2kb at a time
                Dim contentLen As Integer = _FileStream.Read(buff, 0, buffLength)

                'Till Stream content ends
                Do While contentLen <> 0
                    ' Write Content from the file stream to the FTP Upload Stream
                    _Stream.Write(buff, 0, contentLen)
                    contentLen = _FileStream.Read(buff, 0, buffLength)
                Loop
                _Stream.Close()
                _Stream.Dispose()
                _FileStream.Close()
                _FileStream.Dispose()

                ' Close the file stream and the Request Stream


            Catch ex As Exception
                MessageBox.Show(ex.Message, "Upload Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

现在我希望能够迭代一个目录（其中包含子目录）并递归调用上面的函数。我在获取目录中的文件时遇到问题。

我的问题是，如何循环并将每个文件发送到上面的上传函数？我可以将文件名发送到数组吗，或者是否有某种系统对象来处理这个问题（例如 System.IO.Directory）

我正在尝试做的伪代码

                For Each Sub_directory In Source_directory

                     For Each File in Directory
                       'call the above code to transfer the file
                     Next

                'start next subdirectory
                Next

我正在尝试复制整个子目录的目录结构完好无损。我的第一次尝试将所有文​​件转储到一个目录中。

Answer 1

您可以使用递归来浏览每个目录和文件，如下所示：

Public Shared Sub ForEachFileAndFolder(ByVal sourceFolder As String, _
                                       ByVal directoryCallBack As Action(Of DirectoryInfo), _
                                       ByVal fileCallBack As Action(Of FileInfo))

    If Directory.Exists(sourceFolder) Then
        Try
            For Each foldername As String In Directory.GetDirectories(sourceFolder)
                If directoryCallBack IsNot Nothing Then
                    directoryCallBack.Invoke(New DirectoryInfo(foldername))
                End If

                ForEachFileAndFolder(foldername, directoryCallBack, fileCallBack)
            Next
        Catch ex As UnauthorizedAccessException
            Trace.TraceWarning(ex.Message)
        End Try

        If fileCallBack IsNot Nothing
            For Each filename As String In Directory.GetFiles(sourceFolder)
                fileCallBack.Invoke(New FileInfo(filename))
            Next
        End If
    End If
End Sub

编辑： 委托的用法：

ForEachFileAndFolder("yourPath", AddressOf dirAction, Addressof fileAction)

Public Sub dirAction(Byval dirInfo As DirectoryInfo)
    ' do something here '
End Sub

与 FileAction 相同。

Answer 2

您必须分别处理目录和文件，但这仍然非常简单。

System.IO.DirectoryInfo 包含指定目录中的列表文件和子目录。查找属性目录和文件。

您需要做的是指定一个函数，该函数将首先读取 DirectoryInfo 中的所有文件，然后读取目录。对于文件，您可以对它执行您想要执行的操作（我认为是上传），一旦您点击目录，就使用子目录作为参数递归调用您的函数。这将遍历所有子目录和文件。

伪代码（我称其为伪代码，因为我不知道确切的语法）

Sub UploadDirectory(oDirInfo as DirectoryInfo)

   For eaco oFile as FileInfo in oDirINfo.Files
     'Do your thing
   Next

   For each oDir as DirectoryInfo as oDirInfo.Directories
     ' Do some stuff if you need to separate directories
     UploadDirectory(odir)
End sub

希望有所帮助。

Answer 3

查看 DirectoryInfo< /a> 类。