und gleich meine 2. frage hinterher:
ich würde mein programm gerne in der laufzeit automatisch in ein bestimmtes verzeichnis kopieren.
ist dies irgendwie machbar?
danke für die hilfe!
Hi,
ist dies irgendwie machbar?
ja und nein. Ja, weil es sich kopieren lässt, nein, weil das nichts nützt, genauer: nur in den seltenen Fällen nützt, in denen keinerlei Verweise in der registry stehen. Manche Programme erwarten sogar bestimmte Dateien im Programmverzeichnis.
Gruß Ralf
ja und nein. Ja, weil es sich kopieren lässt, nein, weil das
nichts nützt, genauer: nur in den seltenen Fällen nützt, in
denen keinerlei Verweise in der registry stehen. Manche
Programme erwarten sogar bestimmte Dateien im
Programmverzeichnis.
und für den fall dass es nützt - wie kann man es möglichst einfach realisieren?
Hallo,
wie kann man es möglichst einfach realisieren?
mit einer Filelistbox.
Option Explicit
Private Sub Command1\_Click()
Dim QPfd As String 'Quellpfad
Dim ZPfd As String 'Zeilpfad
QPfd = App.Path
If Right(QPfd, 1) "\" Then
QPfd = QPfd & "\"
End If
ZPfd = InputBox("Zielpfad", "Zielpfad festlegen", QPfd)
File1.Path = QPfd
For i = 0 To File1.ListCount - 1
FileCopy QPfd & File1.List(i), ZPfd & File1.List(i)
Next
End Sub
statt der Inputbox würde ich das mit den Steuerelementen Drive und Dir realisieren, der Teil ‚kopieren‘ ist aber so schon fertig.
(Nicht getestet, sollte aber im Prinzip richtig sein.)
Gruß, Rainer