VB.NET％appdata％路径访问被拒绝

Question

我希望在用户的％appdata％文件夹中创建一个文件夹，它确实会创建一个文件夹，但是无法在该文件夹中写入文件，它显示“访问被拒绝”，我用Google搜索了它，但对我没有任何帮助。

Dim SpecialAppData As String = GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim CLOUDSAVEDFILESCFG As String = SpecialAppData & "\da_dev\clientsettings\cloud\"
        If System.IO.Directory.Exists(SpecialAppData & "\da_dev\clientsettings\cloud\") Then

        Else
            System.IO.Directory.CreateDirectory(SpecialAppData & "\da_dev\clientsettings\cloud\")
        End If
        timeout(0.5)
        Dim objWriterCSF As New System.IO.StreamWriter(CLOUDSAVEDFILESCFG)
        TextBox1.Text = My.Settings.username
        TextBox2.Text = My.Settings.password
        If My.Computer.FileSystem.FileExists(SpecialAppData & "\da_dev\clientsettings\cloud\" & "files.cfg") Then

        Else
            objWriterCSF.Write("0")
            objWriterCSF.Close()
        End If

错误是：

编辑：

我注意到图片说它找不到路径，我已经解决了，但是现在我得到了问题：

Answer 1

您不能“打开一个文件”，它实际上是一个目录。

Dim CLOUDSAVEDFILESCFG As String = SpecialAppData & "\da_dev\clientsettings\cloud\"

CLOUDSAVEDFILESCFG指向目录。

Answer 2

这里的错误不是访问被拒绝，而是该目录不存在。 您可以使用Directory.CreateDirectory(Path.GetDirectoryName(CLOUDSAVEFILESCFG))来确保目录存在，然后再尝试在其中创建文件。

Answer 3

解决了：

忘记在CLOUDSAVEDFILESCFG后面添加文件...

像这样：

Dim objWriterCSF As New System.IO.StreamWriter(CLOUDSAVEDFILESCFG & "\files.cfg")