VB.NET% Appdata% Pfad Zugriff verweigert

Question

Ich möchte einen Ordner im% appdata% Ordner des Benutzers erstellt werden, erstellt es, aber es kann nicht eine Datei in den Ordner schreiben, es heißt "Zugriff verweigert", ich googelte es, aber nichts hat für mich funktioniert.

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 

Der Fehler ist:

EDIT:

ich das Bild bemerkt sagt, dass es nicht Weg finden kann, ich festgelegt, dass, aber jetzt habe ich das Problem:

Answer 1

Sie können keine Datei öffnen, die eigentlich ein Verzeichnis ist.

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

CLOUDSAVEDFILESCFG verweist auf ein Verzeichnis.

Answer 2

Der Fehler sie e ist nicht, dass der Zugriff verweigert wird, sondern dass das Verzeichnis nicht existiert. Sie können Directory.CreateDirectory(Path.GetDirectoryName(CLOUDSAVEFILESCFG)) verwenden, um sicherzustellen, dass das Verzeichnis existiert, bevor Sie versuchen, eine Datei darin zu erstellen.

Answer 3

Gelöst:

vergessen eine Datei hinter CLOUDSAVEDFILESCFG hinzufügen ...

So:

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