Guten Tag zusammen, ich bekomme beim DEBUG Folgende meldung: Der Zugriff auf den Pfad *** wurde verweigert
Code:
Ich möchte eine Datei aus den Ressoucen in einen ordner kopieren und verschieben*.
Was mach ich falsch?!
#EDIT: Fehler gefunden, ich hatte vergessen, dass auch ein Dateiname angegeben werden muss.
Code:
VB.NET-Quellcode
- Try
- Dim Text As String = ""
- Dim Array As Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetDirectories(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories, "shaders")
- For inti = 0 To Array.Count - 1
- If inti = Array.Count - 1 Then
- Text = Text + Array(inti).ToString
- Else
- Text = Text + Array(inti).ToString + ", "
- End If
- Next
- MsgBox(My.Resources.fillIconShader)
- 'My.Computer.FileSystem.CopyFile(
- 'My.Resources.fillIconShader,
- Dim binaryw As New BinaryWriter(New FileStream(FolderBrowserDialog1.SelectedPath & "/" & "shaders", FileMode.Create))
- binaryw.Write(My.Resources.fillPlaneShader)
- binaryw.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
Ich möchte eine Datei aus den Ressoucen in einen ordner kopieren und verschieben*.
Was mach ich falsch?!
#EDIT: Fehler gefunden, ich hatte vergessen, dass auch ein Dateiname angegeben werden muss.
