目录创建失败,高手清帮忙看看!
各位高手:
下面是我的一段代码,用来创建目录的:
--建立用户单位目录
Public Function MakeUnitDir(ByVal UnitId As String) As Boolean
Dim UnitRootDir As String = AppSettings("UnitRootDir")
'--如果单位根目录不存在,Return False
If Not Directory.Exists(UnitRootDir) Then
Return False
End If
'--检查单位目录是否存在,UnitId是单位代码,作子目录名
Dim UnitDir As String = UnitRootDir & "\" & UnitId
If Directory.Exists(UnitDir) Then
Return True
Else
Try
Dim di As DirectoryInfo = Directory.CreateDirectory(UnitDir)
Return True
Catch ex As Exception
Response.Write(ex.Message)
Return False
End Try
End If
End Function
执行到 "Dim di As DirectoryInfo = Directory.CreateDirectory(UnitDir)"处报错: 未找到路径“E:\”的一部分。
请指点是怎么回事?