Datei kopieren unter NT rechte ?!

[DeddyH]

Hm... da kann ich keinen Fehler erkennen, ich hatte jetzt relative Pfade vermutet.

[ghost007]

wie gesagt, ich muss festellen, ob ich die datei in dem pfad mit dem code in post #1 kopieren kann.

MfG - Ghost007

[ghost007]

*push*

[scrat1979]

Hallo!

Versuche mal Deine Schleife ohne den Check (also einfach nur LIstbox1.Items.Delete(i). Sie sollte die Einträge der Listbox1 komplett löschen - der Code sieht korrekt aus.
Wenn es funktioniert muss es irgend etwas mit der Funktion an sich zu tun haben. Das Löschen der Listbox-Einträge ist sicherlich NICHT von den Zugriffsrechten abhängig, solange Du auf die eigentlichen Dateien nicht zugreifst...

Du könntest mal Deinen angesprochenen Fehler (Meldung) posten. Evtl. bringt uns das weiter...

SCRaT

//Edit

Ist die entsprechende Listbox vor Aufruf der Schleife mit Einträgen gefüllt? Falls nein, dann könnte der Fehler "weiter oben" in Deinem Programm die Ursache sein. (z.B. Showmessage genau eine Zeile vor die Schleife setzen -> bis zum Showmessage darf dann kein Fehler erscheinen. Ein zweites Showmessage nach der Schleife verrät Dir, ob Du die Schleife ohne Fehler komplett durchlaufen kannst. Damit kannst Du den Fehler weiter eingrenzen)

[ghost007]

Es kommt kein fehler, das irwas mit den listbox items is oder so.
Es kommt der fehler erst beim kopieren.
Und zwar kommt ein access denied error.

MfG - Ghost007

[scrat1979]

Hmmm, ich glaub ich bin mit meiner Antwort im falschen Thread gelandet - Sorry.

SCRaT

[ghost007]

Macht nix, aber evtl kannste mir ja trotzdem weiterhelfen? ^^

MfG - Ghost007

[ghost007]

*PUSH*#2

[scrat1979]

Zitat:

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 :thumb:

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

[ghost007]

hm ... das is ja schön und gut, aber ich will wissen, ob ich genug rechte hab die quelle zu lesen/öffnen.

MfG - Ghost007

P.S.:Trotzdem danke ;)