In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Kopieren, Verschieben, Löschen wie im Explorer
Autor: wb_3001
Datum: 13.08.09 01:38
Hallo minkey! Also es ist wie folgt: Ich habe ein kleines Testprogramm geschrieben und die Kopierfunktion mittels zweier Tabelle getestet. 1. Die Tabellen der Source- und der Destination-Files müssen synchron sein, d.h. es müssen genau so viele Source-Files wie Destinationfiles vorhanden sein. Wenn der Destinationfile anders lautet als der SourceFile wird der Sourcefile mit dem "neuen" Destinationnamen kopiert (also zusätzlich umbenannt). 2. Die Funktion Public Function FilesFromArray(Liste() As String) As String kannst Du nur für die Quellfiles verwenden, da die Existenz des je Tabellenzeile enthaltenen Files geprüft wird. Dieses Prüfen ist bei (zumeist ja noch) nicht existierenden Destination-Files oder Wildcards für Dest-Files natürlich nicht sinnvoll. 3. Es müssen in den Tabellenzeilen der Source- und Destination-Files die voll ausqualifizierten Filenamen angegeben sein. Ob UNC-Pfade (\\PC-Name\Freigabename\Verzeichnis\File) auch unterstützt werden, habe ich nicht getestet. Die beste Lösung ist: Jeweils einen String als Parameter für Source und Destination aus einer Tabelle synchron kreieren, in denen jeder File mit einem chr(0) und der gesamte String mit einem weiteren chr(0) abgeschlossen ist. Als Vorlage möge die Funktion FilesFromArray dienen. Beim Testen habe ich die Schleife der Funktion FilesFromArray auf For i = 0 To UBound(Liste) 'If FileExists(Liste(i)) Then ' Datei-Eintrag mit CHR(0) abschließen temp = temp + Liste(i) + vbNullChar 'Else 'MsgBox (Liste(i) & "existiert hier nicht") 'End If Next reduziert! So geht's: Dim strTabSource() As String Dim strTabDest() As String .....die obigen Tabellen belegen und dann strSource = FilesFromArray(strTabSource) strDest = FilesFromArray(strTabDest) lngResult = fCopy(strSource, strDest, False od. True) Gutes Gelingen.

Tipp 207: Kopieren, Verschieben, Löschen wie im Explorer	7.417	gkwelz	17.04.08 12:05
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.311	Dieter	17.04.08 12:16
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.227	gkwelz	17.04.08 13:20
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.308	Dieter	17.04.08 14:46
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.370	gkwelz	17.04.08 15:12
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.150	wb_3001	28.10.08 00:13
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.179	minkey	24.01.09 11:03
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.712	minkey	10.08.09 10:29
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.686	wb_3001	10.08.09 17:14
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.621	minkey	10.08.09 17:30
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.621	wb_3001	10.08.09 18:59
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.718	wb_3001	12.08.09 17:03
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.628	minkey	12.08.09 17:24
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.643	wb_3001	13.08.09 01:38
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.471	minkey	13.08.09 08:33
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.666	wb_3001	13.08.09 10:58
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.571	minkey	14.08.09 09:02
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.562	wb_3001	14.08.09 10:54
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.524	minkey	14.08.09 12:57
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.502	wb_3001	15.08.09 22:11
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.807	minkey	16.08.09 11:14
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.875	wb_3001	16.08.09 15:53

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen