Question

我想在VB.NET的程序文件中为我的新文件夹建立一个链接

这是我的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If (Not Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + "\UniWin Activator")) Then
        Directory.CreateDirectory(Environment.SpecialFolder.ProgramFiles + "\UniWin Activator")
    End If
    File.Create(Environment.SpecialFolder.ProgramFiles + "\UniWin Activator\Dont-show-again.txt").Dispose()
End Sub

有人可以为我修改这个吗？

我想要的代码是：

1-如果文件夹(Program Files Location)\UniWin Activator未创建，则创建

2-在文件夹Dont-show-again.txt

下创建文本文件(Program Files Location)\UniWin Activator

Answer 1

您的代码有什么问题：SpecialFolder.ProgramFiles或任何其他SpecialFolder.xx实际上是一个整数。 Special Folder是一个枚举。因此，您必须使用Environment.GetFolderPath()来获取实际路径。 SpecialFolder.ProgramFiles返回值38，而Environment.GetFolderPath()返回正确的路径（字符串）。此外，由于您多次使用ProgramFiles\UniWin Activator路径，请将其存储在变量中。这是正确的代码： -

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim uniWinPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles), "UniWin Activator")
        If Not Directory.Exists(uniWinPath) Then
            Directory.CreateDirectory(uniWinPath)
        End If
    File.Create(Path.Combine(uniWinPath, "Dont-show-again.txt")).Dispose()
End Sub

问：路径（ProgramFiles）\我的文件夹

1 个答案: