Benutzer-Werkzeuge

Webseiten-Werkzeuge


automatiserung:robocopy

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
Letzte Überarbeitung Beide Seiten der Revision
automatiserung:robocopy [23.05.2011 02:54]
jrr [HTA-Skript zur einfachen Bedienung]
automatiserung:robocopy [23.05.2011 03:15]
jrr [HTA-Skript zur einfachen Bedienung]
Zeile 52: Zeile 52:
  dim quelle, quellordner  dim quelle, quellordner
  Set Quelle = CreateObject("​Shell.Application"​).BrowseForFolder(0,"​Bitte Quellverzeichnis auswählen",​16,​0) ​  Set Quelle = CreateObject("​Shell.Application"​).BrowseForFolder(0,"​Bitte Quellverzeichnis auswählen",​16,​0) ​
 + If Not Quelle Is Nothing Then
  Set quellordner = quelle.Self  Set quellordner = quelle.Self
  quellpfad = quellordner.path  quellpfad = quellordner.path
- rem msgbox(quellpfad) 
  QuelleTextbox.value=quellpfad  QuelleTextbox.value=quellpfad
 + End If
  End Sub  End Sub
   ​   ​
Zeile 61: Zeile 62:
  dim ziel, zielordner  dim ziel, zielordner
  Set ziel = CreateObject("​Shell.Application"​).BrowseForFolder(0,"​Bitte Zielverzeichnis auswählen",​16,​0) ​  Set ziel = CreateObject("​Shell.Application"​).BrowseForFolder(0,"​Bitte Zielverzeichnis auswählen",​16,​0) ​
 + If Not ziel Is Nothing Then
  Set zielordner = ziel.Self  Set zielordner = ziel.Self
  zielpfad = zielordner.Path ​  zielpfad = zielordner.Path ​
- rem msgbox(zielpfad) 
  ZielTextbox.value=zielpfad  ZielTextbox.value=zielpfad
 + End If
  End Sub  End Sub
   ​   ​
automatiserung/robocopy.txt · Zuletzt geändert: 25.05.2011 12:34 von jrr