Hallo zusammen!
Vor langer Zeit hatte ich mir mal für DOS ein kleines Tool gebastelt, mit dem ich mit ein einfachen Tastenbefehlen (1, 2, 3, ...) meine Outlook-Post-Datei auf mein Notebook kopiert und wieder zurück auf meinen PC kopiert habe.
Nun würde ich mir gern so ein Tool unter Windows XP erstellen. Leider habe ich keine sehr tiefgründigen Programmierkenntnisse. Daher wäre es schön, wenn es ein Programmiertool gäbe, mit dem man ähnlich arbeiten kann, wie mit Word- oder Excel-Makros. Wo man also beispielsweise graphische Bausteine vorgegeben hat, die man per Drag and Drop zusammenbauen kann. Das entstehende Programm muss dann in der Lage sein Dateien von A nach B zu kopieren und - wenn möglich - deren Größe und letztes Änderungsdatum anzeigen. Schön wäre es auch, wenn es irgendwo Eingabezeilen gäbe, wo man Quell- und Zielpfad der Dateien angeben kann.
Vielen Dank also schon mal für eure Hilfe im Voraus.
Grüße,
Mic2004.
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
Was Du meinst, ist ein Macrorecorder !
http://www.google.com/search?q=macrorecorder&start=0&ie=utf-8&oe=utf-8
Bei den Extras, welche Du möchtest, wirst Du schon mit WSH bzw. VB selbst Hand anlegen müssen !
Hallo!
Danke für den Tipp! Ich werde mich, sobald ich Zeit dazu habe, einmal damit befassen. Und mal ganz dumm gefragt, mit was erstellt man denn WSH-Dateien?
Ach und am Rande mal. So sah mein kleines DOS-Tool aus, was heute noch im Einsatz ist:
Grüße,
Mic2004.
Mit jedem gewöhnlichem ASCII Editor, z.B. Notepad !
http://dieseyer.de/
http://www.it-visions.de/scripting/start.aspx
http://www.testticker.de/praxis/home_computing/article200208135305.aspx
Hallo Leute!
Ich habe mich jetzt mal etwas in Visual Basic reingefitzt und möchte nun dort Kopierbefehle mit Fortschrittsanzeige einbauen. Dafür habe ich im Netz folgenden Beispiel-Code gefunden:
------------------------------------------------------------------------------------------------------------------------------------------------
Public Function fCopy(Source As String, Dest As String, _
Ueberschreiben As Boolean) As Long
' Ueberschreiben: True, wenn ohne Warnung überschrieben
' werden soll (Entspricht -y beim DOS copy BEFEHL)
Dim FileStructur As SHFILEOPSTRUCT
Dim FLAG As Integer
FLAG = 0
If InStr(Source, vbNullChar + vbNullChar) > 0 Then _
FLAG = FLAG + FnF_MULTIDESTFILES
If InStr(Source, "*") > 0 Then _
FLAG = FLAG + FnF_FILESONLY
If Ueberschreiben = True Then _
FLAG = FLAG + FnF_RENAMEONCOLLISION
With FileStructur
.wFunc = FN_COPY
.pFrom = Check_NullChars(Source)
.pTo = Dest
.fFlags = FLAG
End With
fCopy = SHFileOperation(FileStructur)
End Function
------------------------------------------------------------------------------------------------------------------------------------------------
http://www.vbarchiv.net/archiv/tipp_details.php?pid=207
------------------------------------------------------------------------------------------------------------------------------------------------
Leider funktioniert das nicht. Ich habe die Quelldatei als "Source" und die Zeildatei als "Dest" definiert.
Source = "G:\test.txt"
Dest = "G:\xxx\test.txt"
Kann mir da jemand weiterhelfen?
Grüße,
Mic2004.