Hallo,
Ich möchte ein Programm erstellen das
Ich weiß nicht ob man das mit VB6 machen kann, ich habe schon nach solchen befehlen gesucht, aber keine gefunden. 
Hoffentlich könnt ihr mir helfen.
Danke schon mal im vor raus.
Hi Nekro,
Ich möchte ein Programm erstellen das
- eine .exe Datei starten kann
müßte mit Shell gehen, schau mal in die Hilfe.
- eine Datei in einem Ordner dessen Pfad man angeben kann
ersetzt
Mir unklar, du willst mit VB6.0 eine exe erstellen, die dann eine andere exe aufruft die dann irgendwo eine datei ersetzt?
Durch was ersetzt?
Hoffentlich könnt ihr mir helfen.
So wie es mir erscheint wird das hier gelöst, naja, da es um Vb geht nicht durch mich *gg*, aber auch als Außenstehender sehe ich das als lösbar an, Problem ist leider, ist noch sehr unklar für mich was du da genau planst.
Gib mal bitte mal mehr Infos, desto besser kann man dir hier helfen.
Gruß
Reinhard
Hallo,
Hoffentlich könnt ihr mir helfen.
das hoffe ich auch. 
Mal sehen, wie nahe ich mit meiner Lösung Deinem Problem komme.
Meinst Du das so?
Option Explicit
Private Sub cmdStart\_Click()
Dim Pfd As String
Pfd = InputBox("Bitte Pfad und Namen der Datei eingeben, die gestartet werden soll")
Shell Pfd, vbNormalFocus
End Sub
Private Sub cmdWrite\_Click()
Dim Txt As String
Dim Pfd As String
Dim ff As Integer
Pfd = "C:\Test.txt"
ff = FreeFile
Open Pfd For Output As #ff
Print #ff, Txt
Close #ff
End Sub
Gruß Rainer
Hallo Reinhard,
So wie es mir erscheint wird das hier gelöst, naja, da es um
Vb geht nicht durch mich *gg*
*gg* das hättest Du auch nebenbei hinbekommen.
Gruß Rainer
Hallo,
Danke für die schnelle antwort, der erste teil funktioniert so wie ichs mir gedacht hatte danke!
Private Sub cmdWrite_Click()
Dim Txt As String
Dim Pfd As String
Dim ff As Integer
Pfd = „C:\Test.txt“
ff = FreeFile
Open Pfd For Output As #ff
Print #ff, Txt
Close #ff
End Sub
Hier den Teil habe ich leider nicht ganz verstanden, ich wollte eine CD erstellen mit einem Autostartfenster, mit einem Button sollte man ein anderes Programm auf der CD starten, das funktioniert jetzt ja schon.
Mit einem anderen Button sollte man eine veraltete Datei(auf dem PC) durch die neuere von der CD ersetzen.
wollte eine CD erstellen mit einem Autostartfenster, mit einem
Button sollte man ein anderes Programm auf der CD starten, das
funktioniert jetzt ja schon.Mit einem anderen Button sollte man eine veraltete Datei(auf
dem PC) durch die neuere von der CD ersetzen.
Hi Nekro,
dann schreibe bitte solche wichtigen Informationen was du da genau planst gleich mit in die Anfrage.
Gruß
Reinhard
Hallo,
Danke für die schnelle antwort, der erste teil funktioniert so
wie ichs mir gedacht hatte danke!
OK. Schön, daß ich das richtig verstanden habe.
Hier den Teil habe ich leider nicht ganz verstanden, ich
wollte eine CD erstellen mit einem Autostartfenster, mit einem
Button sollte man ein anderes Programm auf der CD starten, das
funktioniert jetzt ja schon.Mit einem anderen Button sollte man eine veraltete Datei(auf
dem PC) durch die neuere von der CD ersetzen.
Ahhhh, OK. In der Frage hast Du erst mal nur geschrieben: ‚Überschreiben‘. Der Code überschreibt eine Datei mit dem Inhalt einer Variablen.
Zu Deinem Problem.
Woher weiß das Programm, welche Datei womit überschrieben werden soll? Ist das immer der selbe Pfad, die selbe Datei, oder willst Du die Pfade eintippen oder auswählen?
Erzähl mal genauer. Ein Problem ist das nicht, nur weiß ich noch nicht genau genug, was Du möchtest.
Gruß Rainer
Zu Deinem Problem.
Woher weiß das Programm, welche Datei womit überschrieben
werden soll? Ist das immer der selbe Pfad, die selbe Datei,
oder willst Du die Pfade eintippen oder auswählen?
Also eine Datei auf dem PC (Pfad unbestimmt) soll mit einer Datei von der CD überschrieben werden (Der Pfad ist bekannt besser währ es aber wenn es mit einem relativen Pfad gehen würde.)
Hallo,
dann wird es am Besten sein, den Windows Explorer nachzubauen. Die Warnung brauchst Du ja nicht. Warum Du den Explorer nicht verwendest ist mir allerdings unklar.
Gruß Rainer
Option Explicit
Private Sub Command1\_Click()
Dim Quelle As String
Dim Ziel As String
CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "Bitte Quelldatei auswählen"
Do
CommonDialog1.ShowOpen
Loop While CommonDialog1.FileName = ""
Quelle = CommonDialog1.FileName
CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "Bitte Zieldatei auswählen"
Do
CommonDialog1.ShowOpen
Loop While CommonDialog1.FileName = ""
Ziel = CommonDialog1.FileName
FileCopy Quelle, Ziel
End Sub