| |
| 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! | Fragen zu Tipps & Tricks und Workshops im vb@rchivRe: 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.007 | gkwelz | 17.04.08 12:05 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 4.120 | Dieter | 17.04.08 12:16 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 4.012 | gkwelz | 17.04.08 13:20 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 4.105 | Dieter | 17.04.08 14:46 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 4.162 | gkwelz | 17.04.08 15:12 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.929 | wb_3001 | 28.10.08 00:13 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.915 | minkey | 24.01.09 11:03 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.439 | minkey | 10.08.09 10:29 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.414 | wb_3001 | 10.08.09 17:14 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.424 | minkey | 10.08.09 17:30 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.421 | wb_3001 | 10.08.09 18:59 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.489 | wb_3001 | 12.08.09 17:03 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.399 | minkey | 12.08.09 17:24 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.428 | wb_3001 | 13.08.09 01:38 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.260 | minkey | 13.08.09 08:33 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.422 | wb_3001 | 13.08.09 10:58 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.305 | minkey | 14.08.09 09:02 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.359 | wb_3001 | 14.08.09 10:54 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.336 | minkey | 14.08.09 12:57 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.296 | wb_3001 | 15.08.09 22:11 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.557 | minkey | 16.08.09 11:14 | Re: Kopieren, Verschieben, Löschen wie im Explorer | 3.604 | 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere Infos
|