Hallo zusammen,
Ich habe mich mal wieder anden Computer gesetzt und wollte ein Installationsprogramm schreiben, welches meine daten aus meinem Programm in einen vom Nutzer ausgewählten (Installations-)Ordner Kopiert:
leider klappt das nicht so wie ich es mir vorstelle.
Mein Code ist:
Module1.vb
public PathName as String
Form1.show()
Form3.vb
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim FileName As String = "DeinDateiName.csv"
Dim FullPathName As String ' Pfad + Dateiname
Dim FBD As New FolderBrowserDialog
FBD.ShowNewFolderButton = True
If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
PathName = FBD.SelectedPath
FullPathName = IO.Path.Combine(PathName, FileName)
MsgBox(FullPathName, MsgBoxStyle.Information)
Else
MsgBox("FolderBrowserDialog abgebrochen", MsgBoxStyle.Exclamation)
End If
End Sub
Form4.vb
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Quelle As String
Quelle = "C:********************"
FileCopy(Quelle, PathName)
End Sub
Er gibt bei mir aber immer eine Fehlermeldung mit den Worten "Interner Fehler" ab....
Habt ihr vll. Vorschläge, wie ich es besser machen kann?.
Danke schon mal im Vorraus :-)
