VB.net在目录路径中使用字符串?

时间:2013-10-02 12:58:09

标签: vb.net visual-studio-2010

我为缺乏基本的VB.net知识而道歉但我希望使用相当于%systemdrive%来查找包含Windows的驱动器来检查VB.net中的现有目录 - 所以我有以下内容。

Dim systemPath As String = Mid(Environment.GetFolderPath(Environment.SpecialFolder.System), 1, 3)
        If Not Directory.Exists("'systemPath'\MyFolder") Then
            Directory.CreateDirectory("'systemPath'\MyFolder")
        End If

有人可以帮助在目录查询中使用systemPath字符串吗?谢谢。

2 个答案:

答案 0 :(得分:1)

你应该写

Dim systemPath As String = Mid(Environment.GetFolderPath(Environment.SpecialFolder.System), 1, 3)
If Not Directory.Exists(Path.Combine(systemPath, "MyFolder")) Then
        Directory.CreateDirectory(Path.Combine(systemPath, "MyFolder"))
End If

您可以使用Environment.GetEnvironmentVariable获取名为%SYSTEMDRIVE%的环境变量,但是获得的结果应该与当前目录分隔符char("\")手动组合,因为我没有找到任何方法来说服Path。组合以仅使用系统驱动器(IE C:

构建有效路径
Dim sysDrive = Environment.GetEnvironmentVariable("SystemDrive") 
Dim myPath = sysDrive & Path.DirectorySeparatorChar & "MyFolder" 

答案 1 :(得分:0)

IO.Path有应该使用的方法恕我直言

    Dim sysDrive As String = Environment.GetEnvironmentVariable("SystemDrive") & IO.Path.DirectorySeparatorChar
    Dim myPath As String = IO.Path.Combine(sysDrive, "FolderName")