在VB.NET中，Directory、Path类我常用的方法

在VB.NET中，`Directory` 类提供了许多用于文件和目录管理的静态方法。这些方法在各种应用场景中非常常见，尤其是在需要处理文件系统操作时。以下是`Directory`类常见方法及其典型应用场景的详细说明：

##=====Directory类=====

## # **1. 创建目录**

- **方法**: `CreateDirectory(path)`

  - **初始化应用程序数据目录**: 在应用程序启动时，检查并创建必要的数据存储目录。

  - **日志记录**: 确保日志文件存储目录存在，以便写入日志信息。

If Not Directory.Exists("C:\AppData\Logs") Then      Directory.CreateDirectory("C:\AppData\Logs")  End If

### **2. 删除目录**

- **方法**: `Delete(path, recursive)`

  - **清理临时文件**: 在应用程序关闭或特定操作完成后，删除临时生成的文件和目录。

  - **卸载程序**: 删除安装时创建的目录和文件。

' 删除非空目录及其所有子目录和文件  Directory.Delete("C:\Temp\OldData", True)

### **3. 移动或重命名目录**

- **方法**: `Move(sourcePath, destPath)`

  - **组织文件结构**: 将旧项目文件夹移动到新的存储位置或重命名以反映新用途。

  - **备份数据**: 将当前数据目录移动到备份位置，以便进行数据更新或恢复。

' 将目录从C盘移动到D盘Directory.Move("C:\OldData", "D:\NewLocation\OldData")

### **4. 检查目录是否存在**

- **方法**: `Exists(path)`

  - **避免重复创建**: 在尝试创建目录之前，先检查目录是否已经存在，避免抛出异常。

  - **权限验证**: 确保目标目录存在且有适当的访问权限，再进行文件操作。

If Directory.Exists("C:\AppData\Documents") Then      ' 执行相关操作  Else      ' 提示用户或创建目录End If

### **5. 获取目录中的文件和子目录**

- **方法**:

  - `GetFiles(path)`

  - `GetDirectories(path)`

  - **文件搜索**: 遍历目录以查找特定类型的文件（如`.txt`文件）。

  - **批量处理**: 对目录中的所有文件或子目录执行统一操作，如批量压缩、加密或备份。

' 获取指定目录下的所有.txt文件  Dim txtFiles() As String = Directory.GetFiles("C:\Documents", "*.txt")    ' 遍历子目录并执行操作  For Each dir As String In Directory.GetDirectories("C:\Projects")      Console.WriteLine(dir)      ' 执行相关操作，例如统计文件数量  Next

### **6. 获取目录的创建时间和最后修改时间**

- **方法**:

  - `GetCreationTime(path)`

  - `GetLastWriteTime(path)`

  - **日志记录**: 记录目录的创建和修改时间，用于审计或监控。

  - **数据备份**: 根据目录的最后修改时间决定是否需要备份。

Dim creationTime As DateTime = Directory.GetCreationTime("C:\Projects\MyProject")  Dim lastWriteTime As DateTime = Directory.GetLastWriteTime("C:\Projects\MyProject")  Console.WriteLine($"创建时间: {creationTime}, 最后修改时间: {lastWriteTime}")

### **7. 获取当前工作目录**

- **方法**: `GetCurrentDirectory()`

  - **路径引用**: 在需要引用当前运行程序的工作目录时使用，如加载配置文件或资源文件。

  - **调试和日志**: 记录当前工作目录，便于调试和问题排查。

Dim currentDir As String = Directory.GetCurrentDirectory()  Console.WriteLine($"当前工作目录: {currentDir}")

### **8. 获取逻辑驱动器列表**

- **方法**: `GetLogicalDrives()`

  - **系统监控**: 列出系统中所有的逻辑驱动器，用于磁盘空间管理或备份策略。

  - **安装程序**: 让用户选择安装路径时显示可用的驱动器选项。

Dim drives() As String = Directory.GetLogicalDrives()  For Each drive As String In drives      Console.WriteLine(drive)  Next

### **9. 遍历多级目录**

- **方法**: 结合`GetDirectories`和递归调用

  - **深度搜索**: 搜索整个目录树中的特定文件或满足条件的文件。

  - **批量操作**: 对整个目录结构中的文件执行统一操作，如批量重命名或权限设置。

Sub TraverseDirectory(path As String)      Try          For Each dir As String In Directory.GetDirectories(path)              Console.WriteLine(dir)              TraverseDirectory(dir) ' 递归调用          Next      Catch ex As UnauthorizedAccessException          ' 处理权限不足的情况      End TryEnd Sub  TraverseDirectory("C:\")

##====Path类=====

### **10. 处理路径拼接**

- **方法**: 结合`Path.Combine`

  - **动态路径生成**: 根据用户输入或配置动态生成文件或目录路径，避免手动拼接路径带来的错误。

Dim basePath As String = "C:\Users\Public"Dim subFolder As String = "Documents"Dim fullPath As String = Path.Combine(basePath, subFolder)  If Not Directory.Exists(fullPath) Then      Directory.CreateDirectory(fullPath)End If

### **11.Path.GetFileName(path)

提取路径中的文件名（含扩展名），如输入C:\test\file.txt 返回file.txt 。

### **12.Path.GetFileNameWithoutExtension(path)

获取不带扩展名的文件名。

### **13.Path.GetExtension(path)

获取文件扩展名（如.txt），若路径无扩展名则返回空字符串。

### **14.Path.GetDirectoryName(path)

返回路径的目录部分（如C:\test\file.txt 返回C:\test）。

### **15.Path.GetFullPath(relativePath)

将相对路径转换为绝对路径（基于当前工作目录）。

### **注意事项**

- **异常处理**: 在执行文件系统操作时，可能会遇到权限不足、路径不存在等问题。建议使用`Try...Catch`块来捕获并处理异常。

Try      Directory.Delete("C:\Temp\OldData", True)  Catch ex As IOException      Console.WriteLine("删除目录时发生错误: " & ex.Message)  Catch ex As UnauthorizedAccessException      Console.WriteLine("没有权限删除该目录。")  End Try

- **性能考虑**: 对于包含大量文件或子目录的目录，遍历操作可能会消耗较多资源。可以考虑使用并行处理（如`Parallel.ForEach`）来优化性能，但需注意线程安全。

- **路径格式**: 使用`Path.Combine`而不是手动拼接路径字符串，以确保跨平台兼容性和避免路径分隔符错误。

通过合理使用`Directory`类的各种方法，可以高效地管理和操作文件系统中的目录和文件，满足各种应用场景的需求。