按顺序重命名文件

Question

参考Renaming all files in a folder

运行以下代码，获取类型def错误： 输入＆＃39; DirectoryInfo＆＃39;没有定义 输入＆＃39; FileInfo＆＃39;未定义

如何解决这些错误。请建议。

Dim sourcePath As String = "E:\testrenamerbackup\vbdotnet"
Dim searchPattern As String = "*.doc"
Dim curDir As New DirectoryInfo(sourcePath)
Dim i As Integer = 0
For Each fi As FileInfo In curDir.GetFiles(searchPattern).OrderBy(Function(num) num.CreationTime)
    File.Move(fi.FullName, Path.Combine(fi.Directory.FullName, "docFile_" & i & ".doc"))
i += 1
Next

Answer 1

在vb.net类文件的顶部添加Import System.IO，例如

Imports System
Imports System.IO

Public Class Test
    Public Shared Sub Main()
     ' your code...
    End Sub
End Class

System.IO命名空间包含允许读取和写入文件和数据流的类型，以及提供基本文件和目录支持的类型，包括DirectoryInfo，FileInfo。通过添加Import System.IO，您可以在命名空间中使用这些类型和方法。