Jump to content

robocopy process Start vb.net


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo Gemeinde,

 

ich hoffe das zählt nicht als Doppelpost!?

die Anforderung etwas von a nach b zu kopieren muss nun via vb.net realisiert werden. Ich habe hier robocopy "integriert".

Leider bekomme ich es nicht hin, dass er mir die pcname.txt in die "ZPfad" übernimmt.

 

Sub Main()

       Dim QPfad As String
       Dim ZPfad As String
       Dim oProcess As New ProcessStartInfo
       Dim Datei As String = "C:\pcname.txt"
       Dim stream_reader As New IO.StreamReader(Datei)
       Dim line As String

       QPfad = "I:\share"
       ZPfad = "\c$\Dokumente und Einstellungen\..."

       oProcess.FileName = "C:\robocopy.exe"
       oProcess.Arguments = "QPfad" & """ ZPfad" & """/R:2" & """/MIR" & """/Z" & """/LOG+:C:\log.log"


       While Not stream_reader.EndOfStream

           line = stream_reader.ReadLine()

           If line.Length > 0 Then

               Process.Start(oProcess)
               'MsgBox(line)

           End If

       End While

       stream_reader.Close()

   End Sub

 

Grüße

Link zu diesem Kommentar

Also wenn ich das auf den ersten Blick richtig sehe, müsste das in etwa so aussehen:

 


Sub Main()

Dim QPfad As String
Dim ZPfad As String
Dim oProcess As New ProcessStartInfo
Dim Datei As String = "C:\pcname.txt"
Dim stream_reader As New IO.StreamReader(Datei)
Dim line As String

QPfad = "I:\share"
ZPfad = "\c$\Dokumente und Einstellungen\..."

oProcess.FileName = "C:\robocopy.exe"

While Not stream_reader.EndOfStream

line = stream_reader.ReadLine()

If line.Length > 0 Then
oProcess.Arguments = QPfad & " \\" & line.ToString() & ZPfad & " /R:2 /MIR /Z /LOG+:C:\log.log"
Process.Start(oProcess)
'MsgBox(line)

End If

End While

stream_reader.Close()

End Sub
[/Code]

Meine Annahme: in der jeweiligen Zeile steht der Rechnername, von dem kopiert werden soll.

 

Das ganze ist aber ungetestet. Ich hab das nur mal fix im Notepad zusammengeschubst...

Link zu diesem Kommentar

Hallo phoenixcp,

 

vielen Dank erstmal. Lag wohl an einem Leerzeichen zuviel. Habe es jetzt wie folgt zum Laufen gebracht.

 

Sub Main()

       Dim QPfad As String
       Dim ZPfad As String
       Dim oProcess As New ProcessStartInfo
       Dim Datei As String = "C:\pcname.txt"
       Dim stream_reader As New IO.StreamReader(Datei)
       Dim line As String

       QPfad = "I:\share"
       ZPfad = "\c$\Dokume~1\pfad"

       oProcess.FileName = "C:\robocopy.exe"


       While Not stream_reader.EndOfStream

           line = stream_reader.ReadLine()

           If line.Length > 0 Then
               oProcess.Arguments = QPfad & " \\" & line.ToString() & ZPfad & " /R:2 /MIR /Z /LOG+:C:\log.log"
               'MsgBox(oProcess.Arguments.ToString)
               'Debug.Print(oProcess.Arguments)

               Process.Start(oProcess)

           End If

       End While

       stream_reader.Close()

   End Sub

 

Vielen Dank für s "schuppsen" ;).

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...