目录创建失败，高手清帮忙看看！

[huangwangman]

各位高手：
下面是我的一段代码，用来创建目录的：

--建立用户单位目录
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:\”的一部分。
请指点是怎么回事？

[2002pine]

你看一下unitDir是什么值?

[xinxincao]

给你一段C#的代码参考一下：

public void MoveFile(string SrcFileName,string DestFileName,out string ErrorInfo)
{
string DestFileDir;

if (!File.Exists(SrcFileName))
{
ErrorInfo = "在指定路径找不到要转移的文件";
return;
}

ErrorInfo = "创建目标路径时发生错误！";
DestFileDir = Path.GetDirectoryName(DestFileName);
if (!Directory.Exists(DestFileDir))
Directory.CreateDirectory(DestFileDir);

ErrorInfo = "存在同名文件，修改文件名称时发生错误！";
RenameFileName(ref DestFileName);

ErrorInfo = "转移已加密源文件时发生错误！";
File.Move(SrcFileName,DestFileName);
}