Probleme mit Windows Start und kopieren von Dateien

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Probleme mit Windows Start und kopieren von Dateien

    Hallo,
    ich bin ziemlich neu beim Programmieren mit VB und habe nun einen Auftrag von meinem Chef bekommen der möchte ein Programm das mit Windows startet (habe ich über ein Icon in Autostart gelöst) und dann Ordner mit 7 Zip auf ein Laufwerk packt. Also praktisch ein Sicherungsprogramm. Nun hab ich das Problem wenn ich es nicht beim Start ausführe gibt es keine Probleme, aber sobald ich es mit Windows starten lasse werden die Laufwerke nicht gefunden. Kann mir einer weiter helfen? Danke schon mal im Voraus.
    Hier mal der Code:

    ?

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class autosicher
    4. Public systempfad As String = Path.GetDirectoryName(Application.ExecutablePath)
    5. Public autostartpfad As String = Path.GetDirectoryName(Application.ExecutablePath) & "\autostart"
    6. Public binpfad As String = Path.GetDirectoryName(Application.ExecutablePath) & "\bin"
    7. Public datapfad As String = Path.GetDirectoryName(Application.ExecutablePath) & "\data"
    8. Public temppfad As String = Path.GetDirectoryName(Application.ExecutablePath) & "\data\temp"
    9. Public prodatapfad As String = Path.GetDirectoryName(Application.ExecutablePath) & "\data\projektdata"
    10. Public fq As String = autostartpfad & "\astrt.aut"
    11. Public fz As String = autostartpfad & "\autz.aut"
    13. Public Function IsDriveReady(ByVal sDrive As String) As Boolean
    14. ' Prüft, ob das angegebene Laufwerk existiert und
    15. ' ob darauf zugegriffen werden kann
    16. Try
    17. Dim oDrive As New System.IO.DriveInfo(sDrive)
    18. Return oDrive.IsReady
    19. Catch ex As Exception
    20. Return False
    21. End Try
    22. End Function
    24. Private Sub autosicher_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    26. Dim OverWrite As Boolean = True
    27. Dim sziel As String
    28. Dim quelle As String
    29. Dim trenn As String = ":"
    30. Dim Arr() As String
    31. Dim text As String
    32. Dim pfad As String
    33. Dim lw As String
    34. Dim stag As String = Now.ToString("dd") 'Variable für Tag in Dateiname
    35. Dim smonat As String = Now.ToString("MM") 'für Monat nd Datename
    36. Dim sjahr As String = Now.ToString("yyy") 'für Jahr nd Datename
    37. sziel = My.Computer.FileSystem.ReadAllText(fz)
    39. '-----------------------------------------------------------------
    40. 'Abfrage ob Sicherungsziel Vorhanden
    41. '------------------------------------------------------------------
    42. System.Threading.Thread.Sleep(15000)
    44. '------------------------------------------------------------------
    45. 'Daten nach temp kopieren
    46. '-------------------------------------------------------------------
    48. Dim sr As New System.IO.StreamReader(fq)
    49. Do While Not sr.EndOfStream
    50. Dim Zeileninhalt As String
    51. Zeileninhalt = sr.ReadLine()
    52. Arr = Zeileninhalt.Split(trenn)
    53. lw = Arr(0)
    54. pfad = Arr(1)
    55. ' pfad = Arr(2)
    57. My.Computer.FileSystem.CopyDirectory(lw & ":" & pfad, temppfad & "\sicherung" & pfad, True)
    58. Loop
    60. '----------------------------------------------------------------
    61. ' Zip im Ziel erstellen
    63. Dim SevenZip As New System.Diagnostics.Process
    64. SevenZip.StartInfo.FileName = binpfad & "\7z.exe"
    66. ' Zip optionen
    67. Dim zfile As String = sziel & "\prob" & stag & smonat & sjahr 'zipfile mit pfad
    68. Dim zf2 As String = temppfad & "\sicherung\"
    69. Dim zf3 As String = "a" & " " & zfile & " " & zf2
    71. SevenZip.StartInfo.Arguments = zf3
    72. SevenZip.Start()
    73. 'SevenZip.WaitForExit()
    75. '--------------------------------
    76. 'Dat im Ziel schreiben
    77. '-------------------------------
    78. My.Computer.FileSystem.CopyFile(fq, zfile & ".dat", True)
    80. '----------------------------------------
    81. 'Verzeichnis sicherung löschen
    82. '---------------------------------------
    83. My.Computer.FileSystem.DeleteDirectory(temppfad & "\sicherung\", FileIO.DeleteDirectoryOption.DeleteAllContents)
    85. End
    86. End Sub
    88. End Class

    Deine Frage kann ich dir nicht beantworten. Ich habe dein Projekt nachgebaut und kann nur bestätigen, dass bei mir das Sichern der Verzeichnisse auch funktioniert, aber nicht, wenn ich es beim Anmelden mit Autostart durchführe.
    Es wird das Ziparchiv zwar erstellt, aber es ist leer.

    Vielleicht hat ja jemand dazu die Lösung, ansonsten würde ich einen Timer verwenden und erst 2 Minuten später die Sicherung starten.

    Zum Programm: Du scheinst Option Strict Off zu programmieren, stell bitte Option Strict On ein.
    - Code gehört für mich nicht ins Form_Load Ereignis, besser ist Form_Shown, weil im Form_Load die Fehler meist nicht geworfen werden.
    -

    Quellcode

    1. Dim trenn As String = ":"
    müsste

    Quellcode

    1. Dim trenn As String = ":"c
    heissen
    - Pfade am besten mit

    Quellcode

    1. Path.Combine

    zusammensetzen. Das ist einfacher, schneller, sicherer
    - Die Exisitens von den Dateien und Pfaden in deinem Programm wird nicht geprüft.
    - Leerzeilen in den Textdateien verursachen Fehler, das wird nichts geprüft. Die Datei erwartet nur eine Zeile, dann lies auch nur eine Zeile.
    - Deine Datumstring geht auch einfacher:

    Quellcode

    1. Dim Heute As String = DateTime.Now.ToString("ddMMyyyy")

    - Dein Split versteh ich nicht. Erst Splitest Du in ein bereits dimensioniertes Array, dann bastelst Du den Inhalt offensichtlich wieder zusammen. Sowie ich das sehe, würde

    VB.NET-Quellcode

    1. Dim Zeileninhalt = sr.ReadLine()
    2. If Directory.Exists(Zeileninhalt) Then
    3. My.Computer.FileSystem.CopyDirectory(Zeileninhalt, Path.Combine(temppfad, "sicherung"), True)
    4. End If

    völlig reichen
    - Solltest du doch splitten müssen, dann verwende eine List (Of String):

    Quellcode

    1. Dim SplitList = Zeileninhalt.Split(trenn).ToList()
    . Denk daran, dann die Anzahl der Elemente zu prüfen bevor auf Elemente zugreifst.

    Falls mir noch mehr aufgefallen war, hab ich es vergessen...

    Siehe da, mir ist noch was eingefallen: Kann an meinem Umbau liegen, denn deinen Code kann man in meinem Projekt kaum noch erkennen. Kann es sein, dass in der Sicherung alle Dateien aller Sicherungsverzeichnisse zusammengewürfelt abgelegt werden? Falls ja, das ist extrem uncool.

    Noch ein Nachtrag: Verwende ein Using wenn es möglich ist: docs.microsoft.com/de-de/dotne…tatements/using-statement
    In dem Code also:

    VB.NET-Quellcode

    1. Using sr As New System.IO.StreamReader(fq)
    2. Do While Not sr.EndOfStream
    3. 'Code hier
    4. Loop
    5. End Using

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

    @Kerstinneu Willkommen im Forum.
    Wie äußert sich das?
    Logge mal in Deinem Programm, was Du vorfinden willst und was Du vorfindest.
    Was passiert, wenn Du das Programm vom Explorer aus im Autostart-Pfad ausführst?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Kerstinneu schrieb:

    Hat sich erledigt
    Dann kennzeichne bitte diesen Deinen Thread als erledigt, indem Du oben neben dem Titel auf das abgerundete Quadrat doppelklickst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende