ich muss mittels VB6 und der IB-ZIP.DLL eine etwas komplexe Verzeichnisstsruktur mit Daten zippen.

Dabei müssen alle enthaltenen Ordner- und Dateinamen unbedingt klein geschrieben sein. Leider stellen mir die Zubringer in dieses Ordnersystem dies so nicht zur Verfügung.

Hat jemand eine Idee, ausser dass ich vorher die komplette ordnerstruktur durchlaufen muss, und eventuell Ordner, dateien umbenenen muss.

--
mein privates Hobby. www.ffzell.at

> ich muss mittels VB6 und der IB-ZIP.DLL
> eine etwas komplexe Verzeichnisstsruktur mit Daten zippen.
>
> Dabei müssen alle enthaltenen Ordner- und Dateinamen unbedingt klein
> geschrieben sein. Leider stellen mir die Zubringer in dieses Ordnersystem
> dies so nicht zur Verfügung.
>
> Hat jemand eine Idee, ausser dass ich vorher die komplette ordnerstruktur
> durchlaufen muss, und eventuell Ordner, dateien umbenenen muss.

Ich kenne die Komponente nicht. Wie kommen deine Dateien denn dort hinein? Gibst du nur den obersten Ordner an und der Rest wird automatisch eingepackt oder musst du die Verzeichnisstruktur Datei für Datei durchlaufen und dem Container hinzufügen? Beim zweiten könntest du den Dateinamen dann casten (LCase), beim ersten musst du tatsächlich rekursiv deine Verzeichnisstruktur durchlaufen und vorher umbenennen.

--
Gruß,

ff

Möge TUX mit dir sein!

> Ich kenne die Komponente nicht. Wie kommen deine Dateien denn dort hinein?
> Gibst du nur den obersten Ordner an und der Rest wird automatisch
> eingepackt oder musst du die Verzeichnisstruktur Datei für Datei
> durchlaufen und dem Container hinzufügen? Beim zweiten könntest du den
> Dateinamen dann casten (LCase), beim ersten musst du tatsächlich rekursiv
> deine Verzeichnisstruktur durchlaufen und vorher umbenennen.

Ja, ich gebe nur den obersten Ordner an, die dll. zippt dann die Unterordner mit (wenn so angegeben)

Zubringer sind mehere verschiedenen Systeme, bei denen ich keinen Einfuss habe (z.B.: IBM AS400)

wir mir halt nicht anderes übrig bleiben, als wirklich jeden Ordner/Datei durchzugehen (sind halt eine paar tausend)

--
mein privates Hobby. www.ffzell.at

> wir mir halt nicht anderes übrig bleiben, als wirklich jeden Ordner/Datei
> durchzugehen (sind halt eine paar tausend)

Naja, machste das halt mit dem FSO. Das sollte trotzdem einigermaßen schnell gehen.

--
Gruß,

ff

Möge TUX mit dir sein!

> Naja, machste das halt mit dem FSO. Das sollte trotzdem einigermaßen
> schnell gehen.
Ja wird mir nichts anderes übrig bleiben. Allerdings habe ich da im Hinterkopf, dass ein Umbenennen von Gross- auf Kleinschreibung (ohne sonstiger Änderung) nicht funktioniert.

--
mein privates Hobby. www.ffzell.at

> > Naja, machste das halt mit dem FSO. Das sollte trotzdem einigermaßen
> > schnell gehen.
> Ja wird mir nichts anderes übrig bleiben. Allerdings habe ich da im
> Hinterkopf, dass ein Umbenennen von Gross- auf Kleinschreibung (ohne
> sonstiger Änderung) nicht funktioniert.

Wie benennst du die Dateien denn um? Mit dem FSO habe ich es so getestet und es funktioniert:

Dim fso
dim fld
dim fil
dim DateiAlt
dim DateiNeu
Dim Ordner

Ordner=\"d:\\fuchsitest\\\"

Set fso=createobject(\"Scripting.FileSystemObject\")

Set fld=fso.GetFolder(Ordner)

for Each fil in fld.files
DateiAlt=ordner & fil.name
DateiNeu=ordner & lcase(fil.name)
fso.movefile dateialt, Dateineu
next

--
Gruß,

ff

Möge TUX mit dir sein!

> fso.movefile dateialt, Dateineu

Ah, interessanter Ansatz.

--
mein privates Hobby. www.ffzell.at