Dateikopieren System.IO.File.Copy, Prozessbar und zweites Fenster

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    Dateikopieren System.IO.File.Copy, Prozessbar und zweites Fenster

    Hi,

    bin heute Nacht mal wieder weit gekommen... :)

    Stehe gerade vor einem Problem, dass ich eine Dateiverschieben will, was was einen fest vorgegebenen Pfad hat.

    Pfad X Quelle Name zu Pfad Y Ziel Name, wobei Name gleich bleibt - und in einer Listbox ausgewählt wird.

    Eigentlich funktioniert alles bis auf dieser Fehlremeldung:
    Der Wert vom Typ "String" kann nicht in "1-dimensionales Array von String" konvertiert werden.

    Hier erst mal der Code:

    Hauptprogramm

    VB.NET-Quellcode

    1. ' Pfade
    2. Dim DOCORDNER_q As String = "\\" & Serverpfad & "\" & Userpfad & "\" & Username & "\" & dmsPfad & "\ScannDokumente\"
    3. Dim DOCORDNER_z As String = "\\" & Serverpfad & "\" & Userpfad & "\" & Username & "\" & dmsPfad & "\Datentabellen\FILES\" & TextBox3.Text & "\" & TextBox4.Text & "\" & TextBox5.Text & "\"
    5. 'Testen ob Datei evtl. schon vorhanden ist...
    6. Dim Kontrollwert_a As String
    7. Kontrollwert_a = "0"
    8. If IO.File.Exists(DOCORDNER_z & TextBox6.Text) = True Then
    9. MsgBox(DOCORDNER_z & TextBox6.Text & "Diese Datei existiert bereits. " _
    10. & "Keine möglichkeit zum Archivieren.", MsgBoxStyle.Exclamation, _
    11. "FEHLER - Datei vorhanden")
    12. Kontrollwert_a = "1"
    13. End If
    15. ' Hier wird die betreffende Datei verschoben!
    16. ' out("Datei kopiert!")
    17. If Kontrollwert_a = "0" Then
    19. Call Datei_Verschieben.Show()
    21. .... da kommt dann noch was nach, was aber nix mit Kopieren zu tun hat.


    Datei_Verschieben.vb

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.IO.Directory
    3. Imports System.IO.File
    4. Imports System.Xml
    5. Public Class Datei_Verschieben
    7. Dim fc As FileCopy
    8. Dim ConfigPfad = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
    9. Dim Serverpfad As String
    10. Dim Userpfad As String
    11. Dim dmsPfad As String
    12. Dim scannerpfad As String
    13. Dim Username As String = Environment.UserName()
    14. Dim Unterverzeichnis As String
    15. Dim Dokumentenmappen As String
    16. Dim MappenDateien As String
    18. Private Sub Datei_Verschieben_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. ' Hier werden die Pfade geladen!
    20. Dim XMLDoc As New XmlDocument
    21. Dim Knoten As XmlNode
    22. XMLDoc.Load(ConfigPfad & "\DMS_Pfade.xml")
    23. Dim Knotenliste As XmlNodeList = XMLDoc.SelectNodes("/Programmeinstellungen/Pfade")
    24. For Each Knoten In Knotenliste
    25. Serverpfad = Knoten.Attributes("Serverpfad").Value
    26. Userpfad = Knoten.Attributes("Userpfad").Value
    27. dmsPfad = Knoten.Attributes("dmsPfad").Value
    28. scannerpfad = Knoten.Attributes("scannerpfad").Value
    29. Next
    32. 'Dim fo As New OpenFileDialog
    33. 'Dim fb As New FolderBrowserDialog
    34. 'fo.Multiselect = True
    35. 'fo.ShowDialog()
    36. 'fb.Description = "Wählen Sie den Ordner wohin die Dateien kopiert werden sollen"
    37. 'fb.ShowDialog()
    39. ' Pfade
    40. Dim DOCORDNER_q As String = "\\" & Serverpfad & "\" & Userpfad & "\" & Username & "\" & dmsPfad & "\ScannDokumente\"
    41. Dim DOCORDNER_z As String = "\\" & Serverpfad & "\" & Userpfad & "\" & Username & "\" & dmsPfad & "\Datentabellen\FILES\" & Hauptprogramm.TextBox3.Text & "\" & Hauptprogramm.TextBox4.Text & "\" & Hauptprogramm.TextBox5.Text & "\"
    44. fc = New FileCopy(DOCORDNER_q & Hauptprogramm.TextBox6.Text, DOCORDNER_z & Hauptprogramm.TextBox6.Text) <-- HIER MECKERT ER! - Fehlermeldung wird hierher verwiesen
    46. fc.setLabel(Me.Label2)
    47. fc.setProgressBar(Me.ProgressBar1)
    49. fc.copyFiles()
    52. Button1.Visible = False
    53. Button2.Visible = True
    54. Me.Refresh()
    55. End Sub
    57. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    58. fc.cancelWork()
    59. Button1.Visible = True
    60. Button2.Visible = False
    61. End Sub


    FileCopy.vb

    VB.NET-Quellcode

    1. ....
    2. 'Zuerst muss geprüft werden, ob alle angegeben Pfade gültig sind und
    3. 'die gesammt Größe aller Dateien errechnen
    4. '<--
    5. For Each s As String In files
    6. If IO.File.Exists(s) Then
    7. aBytes += IO.File.ReadAllBytes(s).Length
    8. Else
    9. MessageBox.Show("Fehler, datei " & s & " nicht gefunden!")
    10. Exit Sub
    11. End If
    12. Next <- HIER PASST IHM WAS NICHT MIT DEM NEXT...
    13. ...


    Kann zwar soweit an totaler Anfänger den code schon ganz gut nachvollziehen, aber bei diesen Fehlern tu ich mir schon echt schwer...
    Das Programm FileCopy habe ich mir aus dem Internet geholt, vorher in einem anderen Testprojekt ausprobiert - in der Originalfassung - und es funktioniert super...
    Ich möchte halt nur keinen Filedialog haben - sondern fest vorgegebene Pfade mit einer ausgewählten Datei...

    Könnt Ihr mir da bisselr weiterhelfen ?

    Danke vielmals...

    lris08

    hab ich schon versucht!

    System.IO.File.Copy und das
    IO.File.Copy

    Da kommt dann diese Fehlermeldung:
    Der Typ "System.IO.File.Copy" ist nicht definiert.

    Das ist aber vorhanden:
    Imports System.IO
    Imports System.IO.Directory
    Imports System.IO.File

    hier mal der code davon - wo diese Fehlermeldung ausgegeben wird:
    Der Wert vom Typ "String" kann nicht in "1-dimensionales Array von String" konvertiert werden.


    VB.NET-Quellcode

    1. ' Pfade
    2. Dim DOCORDNER_q As String = "\\" & Serverpfad & "\" & Userpfad & "\" & Username & "\" & dmsPfad & "\ScannDokumente\"
    3. Dim DOCORDNER_z As String = "\\" & Serverpfad & "\" & Userpfad & "\" & Username & "\" & dmsPfad & "\Datentabellen\FILES\" & Hauptprogramm.TextBox3.Text & "\" & Hauptprogramm.TextBox4.Text & "\" & Hauptprogramm.TextBox5.Text & "\"
    6. fc = New FileCopy(DOCORDNER_q & Hauptprogramm.TextBox6.Text, DOCORDNER_z & Hauptprogramm.TextBox6.Text)
    7. fc.setLabel(Me.Label2)
    8. fc.setProgressBar(Me.ProgressBar1)
    10. fc.copyFiles()



    früher war er mal so - so hats auch funz... aber da gibts ja den Dialog - den ich nicht will...

    VB.NET-Quellcode

    1. Dim fo As New OpenFileDialog
    2. Dim fb As New FolderBrowserDialog
    4. fo.Multiselect = True
    5. fo.ShowDialog()
    7. fb.Description = "Wählen Sie den Ordner wohin die Dateien kopiert werden sollen"
    8. fb.ShowDialog()
    11. fc = New FileCopy(fo.FileNames, fb.SelectedPath & "\")
    12. fc.setLabel(Me.Label1)
    13. fc.setProgressBar(Me.ProgressBar1)
    15. fc.copyFiles()

    ich denke du musst statt

    VB.NET-Quellcode

    1. fb.ShowDialog()
    4. fc = New FileCopy(fo.FileNames, fb.SelectedPath & "\")
    5. fc.setLabel(Me.Label1)
    6. fc.setProgressBar(Me.ProgressBar1)
    8. fc.copyFiles()

    das schreiben

    VB.NET-Quellcode

    1. If fb.ShowDialog = System.Windows.Forms.DialogResult.OK then
    2. fc.setLabel(Label1)
    3. fc.setProgressBar(Progressbar1)
    4. IO.File.Copy(fc.filename, neuerpfad+dateiname)


    lg Gugi

    Das schreibt er mit jetzt als Fehlermeldung:

    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    mit verweis an diese Stelle:

    VB.NET-Quellcode

    1. fc.setLabel(Label2)
    2. fc.setProgressBar(ProgressBar1)


    ok dann mal anders...

    vielleicht ist das alles auch bisser zu gross von mir versucht aufzuziehen mit der Progressbar...


    PS: ja so meinte ich das, aheb ich aber schon ihne das if ausprobiert - siehe oben diese fehlermeldung kommt dan a

    vielleicht gehts auch leichter:

    Was ich vorhabe:

    in Listbox wird eine Datei mackiert.
    drücke auf den knopf archivieren, dann soll ein fenster aufgehen, die eine statusanzeige laufen bis die datei kopiert wird. anschließend soll sich das fenster wieder schließen...
    was vielleicht noch hilfreich sein könnte, die Dateigröße habe ich bereits im vorfeld ausgelesen.

    vielleicht einfach nur ein einfacher prozessbalken der bis zu der gröse der datei nochzählt...?

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    mach es einfach ohne progressbar... mit dem io.file.copy, und die gröse der datei bekommt man mit io.fileinfo

    lg Gugi

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende