Datei Kopieren

[ATdrag0N]

Hallo,
ich habe da ein Problem.
Ich habe mir ein Tool gebaut was, wenn man es startet eine Datei kopiert.
Jetzt komme ich aber nicht dahinter wie man das toll dazu bringt das er die Datei registriert.
Dann möchte ich das auch so haben das wenn die Datei schon in denn zielordner ist das er dann die Datei nicht mehr kopiert und auch nicht registriert.

Ich hoffe es kann mir einer ein Code Beispiel dafür geben bzw. mein Code weiter ausbauen zu der Funktion.

Private Sub Form_Load()
    Dim strOldFile As String
    Dim strNewFile As String


    strOldFile = App.Path & "\MSWINSCK.OCX"
    strNewFile = "C:\test\MSWINSCK.OCX"

    FileCopy strOldFile, strNewFile
End Sub

 

[DrSoong]

Mit Dir() kannst du ganz einfach abfragen, ob die Datei schon existiert:

strNewFile = "C:\test\MSWINSCK.OCX"
If Dir(strNewFile) <> "" Then MsgBox "Datei existiert!"

Das Registieren einer OCX/DLL würde über einen Shell-Aufruf der regsvr32.exe gehen, du kannst es aber auch direkt in VB machen.


Der Doc!

 

[ATdrag0N]

Das ist nicht ganz das was ich suche.
Das Tool kopiert die Datei ja sobald es gestartet wurde, es soll aber die Datei nicht kopieren wenn diese schon vorhanden ist.
Ohne eine Meldung.

 

[XanRaZoR]

Dann nimmst du halt das:

strNewFile = "C:\test\MSWINSCK.OCX"
If Dir(strNewFile) <> "" Then Exit Sub
'Danach Prozedur zum kopieren

Is jez mal ausm Kopf heraus aber sollte funktionieren denk ich... :/

 

[DrSoong]

@ATdrag0N: Ich hab dir ja auch nicht die Prozedur umgeschrieben, ich hab dir einen Code gezeigt, der abfragt, ob die Datei schon vorhanden ist. Ein bißchen Nachdenken und Eigeninitiative setz ich schon voraus, wenn du fertige Programmblöcke und nicht selbst nachdenken willst, kostet das was. Tipps die du analysierst und daraus lernst gibts natürlich weiterhin gratis.


Der Doc!