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	6.985	gkwelz	17.04.08 12:05
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.107	Dieter	17.04.08 12:16
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.000	gkwelz	17.04.08 13:20
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.092	Dieter	17.04.08 14:46
Re: Kopieren, Verschieben, Löschen wie im Explorer	4.150	gkwelz	17.04.08 15:12
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.916	wb_3001	28.10.08 00:13
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.898	minkey	24.01.09 11:03
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.428	minkey	10.08.09 10:29
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.399	wb_3001	10.08.09 17:14
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.411	minkey	10.08.09 17:30
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.410	wb_3001	10.08.09 18:59
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.474	wb_3001	12.08.09 17:03
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.386	minkey	12.08.09 17:24
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.416	wb_3001	13.08.09 01:38
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.247	minkey	13.08.09 08:33
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.407	wb_3001	13.08.09 10:58
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.291	minkey	14.08.09 09:02
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.347	wb_3001	14.08.09 10:54
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.323	minkey	14.08.09 12:57
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.284	wb_3001	15.08.09 22:11
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.542	minkey	16.08.09 11:14
Re: Kopieren, Verschieben, Löschen wie im Explorer	3.589	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