Zitat von
ghost007:
Macht nix, aber evtl kannste mir ja trotzdem weiterhelfen? ^^
MfG - Ghost007
Hmmm, hätte nur noch einen Lösungsvorschlag. Vor dem Kopieren der Datei kann damit geprüft werden, ob in das Zielverzeichnis geschrieben werden kann. Vielleicht hilft es Dir ja
Delphi-Quellcode:
Function DirWritable(DestDir : String) : Boolean;
var
TestDatei : TFileStream;
Begin
DestDir := IncludeTrailingPathDelimiter(DestDir); // '\' am Ende des Pfades sicherstellen...
Result := False;
Try
TestDatei := TFileStream.Create(DestDir+'dummy.tmp', fmCreate);
Result := True;
TestDatei.Free;
DeleteFile(DestDir+'dummy.tmp'); // Datei wieder löschen...
Except
End; {Try..Except}
End; { Function }
Aufruf z.B. mit
Delphi-Quellcode:
if DirWritable(Listbox1[5]) Then ShowMessage('Hier kann reingeschrieben werden!')
Else ShowMessage('Zugriff verweigert!');
Ungetestet. Vielleicht hilft Dir das aber etwas weiter...
SCRaT