kleines Kopierprogramm schreiben ...

[MacGyverDTH]

Hallo !
Ich habe früher immer kleine Kopierprogramme geschrieben zum Sachen von Diskette auf PC und umgekehrt zu machen. Ich machte die in der form "copy a:abc.def c:\ordner\zielordner\" und erstellte eine LOAD.BAT Datei.
Nun mit Windows XP ist ja dieses DOS nicht mehr so richtig drin, darum möchte ich ein kleines Windows Kopierprogramm machen.
Es sollte ein Windows Fenster aufgehen wo gefragt wird ob ich überschreiben soll anstatt diese Dosbox. Mit was und wie kann ich so ein kleines Programm schreiben ? Müsste ja nicht allzuschwer sein da ich ja immer die selbe Datei im selben Ordner kopieren will... (könnte ja aussehen wie ein Installationsprogramm von einem
Programm/Spiel)
Mein eigentliches Ziel dabei ist nicht immer in den Explorer gehen zu müssen, sondern per Klick auf das Mini-Programm auf dem Desktop den Kopiervorgang zu starten !
Kann mir da jemand helfen ? (aber ich hab von Programmiersprache keinen Schimmere, kenne mich aber sonst ganz gut mit PC's aus)

[Racer1000]

Hi
das sollte doch mit XP genauso gehen nur das die Pfade etwas anderst sind aber sonst muß es gehen.


Gruß RAcer

[MacGyverDTH]

ja, funktionieren tut es auch, aber ich möchte das es schöner (professioneller) aussieht. Deshalb der Windows Look. Aber ich hab keine Ahnung wie man das macht das ein Windows Fenster aufgeht und es kopiert wird...

[HeikoBerlin]

Hallo MacGyverDTH
Wir sind uns wohl einig das copy in bat noch funzt..

"kleines Kopierprogramm schreiben" und
"ich hab von Programmiersprache keinen Schimmer"
- ist ja eine super Kombination

Für den Zweck eignen sich diverse Installer bzw. Setup-Manager
Eine Übersicht z.B.: http://www.appdeploy.com/downloads/b...cat=installers
Das Kopieren dürften vermutlich so ziemlich alle beherrschen.

[Rumpanzle]

Dim WSHShell

Set WSHShell = CreateObject("WScript.Shell")

WSHShell.Run "xcopy C:\Programme\Com\mIRC\mirc.ini E:\Backup\" ,0,true

Pack das in eine Datei mit der Endung .vbs , passe Deine Gegebenheiten an und ab gehts.

[HeikoBerlin]

@ Rumpanzle
Ist sicher nett gemeint und funzt natürlich auch.

Aber da kann man auch gleich bei einer Batch bleiben.

Oder wo ist die gewünschte Abfrage für's Überschreiben?
Dazu müsste man ",0,true" entfernen und das Ergebnis
WSHShell.Run "xcopy Quelle Ziel" ist das gleiche wie
xcopy Quelle Ziel in einer Batchdatei

oder wo siehst Du da nun ein "Windows Fenster" ?

[Rumpanzle]

Nun, es macht schonmal keine Dosbox auf =)

[HeikoBerlin]

- aber auch nur wenn immer überschrieben wird..
Das war aber überhaupt nicht gewünscht, oder?

Wir können uns vielleicht darauf einigen:

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("C:\test\datei.txt") Then
Dim Abfrage
Abfrage = MsgBox("überschreiben?", 36,"Windows Fenster")
If Abfrage = vbNo then WScript.Quit
End If

fso.CopyFile "c:\datei.txt", "C:\test\"

[MacGyverDTH]

danke erstmal an alle.
@HeikoBerlin dein Exemplar des Kopierprogramms find ich klasse und hab ich gleich so übernommen. Genau sowas wollte ich haben.

Wie nennt man diese Programmiersprache die du da benutzt hast ? Sowas würde mich mal interessieren ...

[Harvey]

Wird oft als WSH bezeichnet (Windows Scripting Host)

Was meiner Meinung nach falsch ist, das ist nämlich der Interpreter. Eigentlich müsste es nur Windows Script heissen.