vb.net 判断文件夹存在并创建文件夹（亲自实践）

' "文件夹存在CHECK"
Public Function isDirExist(ByVal strPath As String) As Boolean
Dim strDirTemp As String()
strDirTemp = strPath.Split("\")
strPath = String.Empty
For i As Integer = 0 To strDirTemp.Length - 1
' 判断数组内容.目的是防止输入的strPath内容如:c:\abc\123\ 最后一位也是"\"
If strDirTemp(i) <> "" Then
strPath += strDirTemp(i) & "\"
End If
Next

' 判断文件夹是否存在
isDirExist = System.IO.Directory.Exists(strPath)
End Function

'  检查设定的输出报表路径是否存在
If common.isDirExist(Me.txtOutputPath.Text.Trim()) = False Then
' 设定的输出报表路径不存在的场合,确认是否要创建该路径
If MsgBox("设定的输出报表路径： " & Me.txtOutputPath.Text.Trim() & " 不存在，是否创建该路径？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
' 创建设定的文件夹
My.Computer.FileSystem.CreateDirectory(Me.txtOutputPath.Text.Trim())
Return True
Else
Me.txtOutputPath.Focus()
Return False
End If
End If