1、獲取文件夾中文件夾的名稱，並添加或刪除對應的文件夾
<1> 獲取文件夾的名稱
fldPath = “相對應的路徑名稱”
dirInfo = New DirectoryInfo(fldPath)
files = dirInfo.GetFiles()
dirInfo1 = dirInfo.GetDirectories()
<2> 刪除對應的文件夾
For i As Integer =0 To dirNGInfo1.Length
If Directory.Exists(dirInfo1(i).FullName.ToString()) = True Then
Directory.Delete(dirInfo1(i).FullName.ToString(), True)
End If
Next
注意：1°倘若刪除文件夾寫成 Directory.Delete(DelPath)會報警：目錄不是空的，該文件夾將不會被刪除
2°倘若刪除文件夾寫成 Directory.Delete(DelPath, True)，仍舊報警：目錄不是空的，此時的解決方式：右鍵文件夾》屬性》安全》在相應的權限上，勾選“完全控制”
相應的權限：everyone
<3> 添加新的文件夾
If Directory.Exists(FilePath) = False Then
Directory.CreateDirectory(FilePath)
End If
2、獲取文件夾中文件的名稱，並添加或刪除對應的文件夾
<1> 獲取文件的名稱
fldPath = “相對應的路徑名稱”
dirInfo = New DirectoryInfo(fldPath)
files = dirInfo.GetFiles()
<2> 刪除對應的文件
For i As Integer =0 To files .Length
If Directory.Exists(files (i).ToString()) = True Then
Directory.Delete(files (i).ToString())
End If
Next
<3> 添加新的文件
If Directory.Exists(FilePath) = False Then
Directory.Create(FilePath)
End If