Guten Abend zusammen!
Folgendes Problem:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| form2.listbox1.ItemIndex:=j;
directory:=form2.ListBox1.Items.Text;
delete(directory,1,2);
directory1:=maindirectory+directory+'\mist\hallo';
showmessage(directory1);
ForceDirectories(directory1); |
Mit dem zitierten Quelltext versuche ich ein Unterverzeichnis zu erstellen. Der Pfad setzt sich aus dem Inhalt von ListBox1 (das erste und zweite Zeichen wird gelöscht und ersetzt) und dem Zusatz \mist\hallo zusammen.
In der Message die bei Ausführung des Codes angezeigt wird steht auch der korrekte String für den gesamten Pfad drin. Allerdings wird bei der Verzeichniserzeugung nur ein gewisser Teil des Strings als Unterverzeichnisse angelegt. Kann mir von euch jemand verraten wieso?
Vielleicht noch zur Info:
Die Listbox1 enthält einen mit jvselectdirectory ausgewählten Quellordner (als String), den ich dann entsprechend umbaue und zu meinem neuen Zielordner zusammenbastel.
Auffällig ist, dass wenn z.B. der Quellordner
"C:\Toilette\Haustür"
ist, mir in der Message beim erstellen des Zielordners der String
"G:\Toilette\Haustür\mist\hallo"
angezeigt wird aber nur
"G:\Toilette"
angelegt wird. Also endet der erstellte Ordner immer eine Ebene über dem ursprünglich ausgewählten.
Und das ist mir leider zu hoch
Vielleicht kann mir ja einer von euch helfen!?
Danke schon im Vorraus!
Gruß Michael
Mischel24NRW
