Lass Dir mal den Wert von
Edit2.Text + '\' + tempdir + '\' + Kuerzel.Text anzeigen.
Ausserdem teste mal folgenden Code:
Delphi-Quellcode:
if not DirectoryExists(Edit2.Text + '
\' + tempdir + '
\' + Kuerzel.Text)
then
raise Exception.Create('
Verzeichnis existiert nicht!');
SetCurrentDir(Edit2.Text + '
\' + tempdir + '
\' + Kuerzel.Text);
AssignFile(sinfo,'
Shardinfo.ini');
ReWrite(sinfo);
CloseFile(sinfo);
...
...