Datei kopieren unter NT rechte ?!

[Luckie]

Dazu habe ich dir doch Code im zweiten Beitrag gepostet.

[scrat1979]

Zitat:

Zitat von Luckie

Dazu habe ich dir doch Code im zweiten Beitrag gepostet.

Habe es auch so gelesen, daß es damit funktioniert hat?!? :gruebel:

An sonsten ändere meine Funktion etwas ab:

Delphi-Quellcode:

Function FileAccessable(Dateiname : String) : Boolean;
var
TestDatei : TFileStream;
Begin
  Result := False;
  Try
    TestDatei := TFileStream.Create(Dateiname, fmOpenRead or fmShareDenyNone);
    Result := True;
    TestDatei.Free;
  Except
  End; {Try..Except}
End; { Function }

durch

Eventuell wird ja die Exception auch ausgelöst wenn Du versuchst die Datei mit dieser Funktion zum Lesen zu öffnen. Dabei unterscheidet diese Funktion natürlich nicht, warum die Datei nicht geöffnet werden kann (Rechte, Existenz etc.). Müsstest evtl. halt die Funktion ausbauen - falls es überhaupt interessiert, warum sie nicht gelesen werden kann. Stichwort FileExists(...) könnte z.B. innerhalb der Funktion prüfen, ob die Datei überhaupt (noch) existiert.



Sonst sag uns doch, warum Luckies Code von oben jetzt nicht (mehr?) funzt oder was Dein jetztiges Problem von Deinem Problem, das von Luckie (anscheinend) schon gelöst wurde, unterscheidet. Dann können wir Dir bestimmt weiterhelfen! :thumb:

SCRaT

[ghost007]

hi,
ich hatte den code daheim auf meinem XP PC getestet, und dann bei meinem dad inner firma, dort hat er nicht mehr funktioniert.
Ich bin die liste der paths durchgegeangen und hab jeden mit dem code von luckie gecheckt, jedoch hab ich dann beim kopieren trotzdem einen access denied error bekommen :(

MfG - Ghost007

[scrat1979]

Okay, jetzt habe ich das Problem verstanden. Hast es auch schon weiter oben geschrieben - Sorry, muss ich überlesen haben...

Und wie sieht es mit meinem letzten Post aus? Geht auch nicht? :zwinker:

SCRaT

[ghost007]

also,
bei mir funktioniert dein letzter post, muss morgen mal bei meim dad testen ;)

MfG - Ghost007

P.S.:Danke :)

[scrat1979]

Das freut mich (vorerst) mal :-)

Gib aber bescheid, interessiert mich natürlich auch. So long... :thumb:

SCRaT

[ghost007]

Hi,

hab das projekt nun schon beerdigt. es is einfacher wenn man das mit ner bandsicherung macht.
da es dich awa interessiert ob es so funktioniert.
nein tut es nicht :evil:

MfG - Ghost007