Probleme mit ForceDirectories

[gangs-taas]

Hey,
ich habe diesen Code

Delphi-Quellcode:

if not (DirectoryExists(Pfad)) then
    begin
      ForceDirectories(Pfad);
      Dokument.Add(Text);
      Dokument.SaveToFile(DokumentenOrt);
    end
  Else
    begin
      If not FileExists(DokumentenOrt) Then
      begin
        Dokument.Add(Text);
        Dokument.SaveToFile(DokumentenOrt);
      end;

und mein Pfad besteht nur zur hälfte ....

also Pfad := C:\Users\Christopher\AppData\Roaming\Kalender\2008 \
und das hier ist schon vorhanden C:\Users\Christopher\AppData\Roaming\Kalender

wieso erstellt mir der Befehl ForceDirectories(Pfad); denn nun nicht meinen Ordner '2008' ???

ich fliege nämlich dann später raus mit der fehlermeldung 'der Pfad ist nicht vorhanden'

und das Programm erkennt 'pfad' aber auch nicht als nicht vorhanden ..

wieso denkt das programm der pfad sei vorhanden ? nur weil der erste teil schon da ist ?1

[Vasco da Gama]

Vielleicht hast du dort keine Schreibrechte? Teste das mal mit dem Dokumenteordner.

[Luckie]

Zitat:

Zitat von gangs-taas

wieso erstellt mir der Befehl ForceDirectories(Pfad); denn nun nicht meinen Ordner '2008' ???

Keine Ahnung. Aber ich werde mal meine mentalen Debugger Fähigkeiten einsetzen: ommmmmmmm

Die Variable Pfad enthält nicht das Jahr.

Desweiteren wäre es chön, wenn du vor dem Posten schon mal selber gucken würde, wo der fehler sein könnte, in dem du deinen Code mal debuggst.

[himitsu]

und laß mal das \ aus dem Pfad
ok, daß ExcludeTrailingPathDelimiter sollte dieses Problem beheben

[gangs-taas]

denkst du allen ernstes ich hatte das nicht gemacht ?!


Die Variable Pfad enthält nicht das Jahr.

doch enthält sie !!


woher willst du wissen das sie das nicht tut ?

also ich denk manchmal ihr haltet mich für blöd :x


also das war auf luckie bezogen

[himitsu]

PS: ForceDirectories liefert dir einen netten Rückgabewert, ala Boolean

z.B.:

Delphi-Quellcode:

If ForceDirectories(Path) Then Begin
  Dokument.Add(Text);
  Dokument.SaveToFile(DokumentenOrt);
End Else ShowMessage(SysErrorMessage(GetLastError));

[add]
und wozu zwei getrennte Pfade?
das sind nur unnötige Fehlerquellen

Delphi-Quellcode:

ForceDirectories(ExctractFilePath(DokumentenOrt));

[DeddyH]

Ich würde den Code etwas erweitern:

Delphi-Quellcode:

if not (DirectoryExists(Pfad)) then
    begin
      if SysUtils.ForceDirectories(Pfad) then
        begin
          Dokument.Add(Text);
          Dokument.SaveToFile(DokumentenOrt);
        end
      else
        MessageBox(0,PChar(Format('Fehler beim Anlegen des Verzeichnisses "%s"',[Pfad])),'Oops',MB_OK or MB_ICONERROR);
    end 
else
  ...

[gangs-taas]

Zitat:

Zitat von DeddyH

Ich würde den Code etwas erweitern:

Delphi-Quellcode:

if not (DirectoryExists(Pfad)) then
    begin
      if SysUtils.ForceDirectories(Pfad) then
        begin
          Dokument.Add(Text);
          Dokument.SaveToFile(DokumentenOrt);
        end
      else
        MessageBox(0,PChar(Format('Fehler beim Anlegen des Verzeichnisses "%s"',[Pfad])),'Oops',MB_OK or MB_ICONERROR);
    end 
else
  ...

bringt nichts
ich bekomme KEINE MsgBox und bekomme hier

Delphi-Quellcode:

   begin
      if SysUtils.ForceDirectories(Pfad) then
        begin
          Dokument.Add(Text);
          Dokument.SaveToFile(DokumentenOrt);
        end
      else
        MessageBox(0,PChar(Format('Fehler beim Anlegen des Verzeichnisses "%s"',[Pfad])),'Oops',MB_OK or MB_ICONERROR);
    end 
else
    begin
      If not FileExists(DokumentenOrt) Then
      begin
        Dokument.Add(Text);
        Dokument.SaveToFile(DokumentenOrt);  // hier !!
      end;

die fehlermeldung "Pfad ist nicht vorhanden"

also erkennt er IMMERNOCH NICTH, dass er deb Pfad anlegen soll ...

[Luckie]

Zitat:

Zitat von gangs-taas

denkst du allen ernstes ich hatte das nicht gemacht ?!

Und ich habe das Gefühl, du denkst wir sitzen hier neben dir an deinem Computer? Woher sollen wir wissen, was du getan hast um den Fehler zu finden? Wir sehen nur den Code, der syntaktisch korrekt ist, und den Hinweis "geht nicht". Was sollen wir da machen?

Zitat:

Die Variable Pfad enthält nicht das Jahr.

doch enthält sie !!


woher willst du wissen das sie das nicht tut ?

Weil der Ordner nicht erstellt wurde und dies ein plausibeler Grund wäre?

Zitat:

also ich denk manchmal ihr haltet mich für blöd :x

Und ich habe das Gefühl, du denkst wir sitzen hier neben dir an deinem Computer? Woher sollen wir wissen, was du getan hast um den Fehler zu finden? Wir sehen nur den Code, der syntaktisch korrekt ist, und den Hinweis "geht nicht". Was sollen wir da machen? Zumal due keinerlei Fehlerbehandlung im Code hast, die dir helfen könnte den Fehler zu finden.

[himitsu]

wenn ForceDirectories True liefert (also keine MessageBox anzeigt), dann ist es der Meinung es gibt den Pfad, welchen du ihm gibst ... demnach wäre der von dir übergebene Pfad fehlerhaft.

und was sagt meine Version?

[gmc616]

Könnte es sein, dass hier die Virtualisierung zuschlägt?

Ein Vista-Manifest hat deine Anwendung aber schon, oder?

[TBx]

Was enthät denn die Variable Dokumentenort?

Du überprüfst, ob es das Verzeichnis Pfsd gibt, speicherst dann aber in eine Datei, deren Name in Dokumentenort abgelegt ist. Enthält Dokumentenort Pfad?

[gangs-taas]

hab den fehler gefunden ... :oops: :oops: :oops:

es fehlte irgendwie ein unterverzeichnis :oops: :oops: :oops:

ich verstehe es aber eigl. nicht weil das hat doch vorher immer geklappt und ich hatte jetzt nur ne winzigkeit geändert und nun klaüüte es nicht mehr .... versteh ich nicht ....

tut mir voll leid euch damit genervt zu haben...
auch für meien gereizte stimmung ...

ich hatte das 5 mal überprüft das alles da ist und hab das irg. übersehn ....


*sorry*

[himitsu]

Zitat:

Zitat von gangs-taas

ich hatte das 5 mal überprüft das alles da ist und hab das irg. übersehn ....

wie/wo denn?

wenn du dir direkt kurz vor Aufruf von ForceDirectories den Variableninhalt angesehn hättest, dann wäre dir vermutlich das falsche Pfad aufgefallen.

[gangs-taas]

hab ich egil. ...

ich hab irgendwo was geändert, so dass das unterverzeichnis nicht mehr rerstellt wurde...

das problem war das alles richtig gemacht hat was es sollte, ich nur irg. einen befehl vergessen hab ...

tut mir echt leid ... *sorry*

[Luckie]

Zitat:

Zitat von gangs-taas

hab den fehler gefunden ... :oops: :oops: :oops:

es fehlte irgendwie ein unterverzeichnis :oops: :oops: :oops:

Also hatte ich doch recht. Und ich hatte schon an meinen übersinnlichen Fähigkeiten gezweifelt. ;)

[Carsten1234]

Zitat:

Zitat von himitsu

ExcludeTrailingPathDelimiter

Man lernt doch nicht aus. :zwinker:
Sowohl diese als auch die 'Gegenfunktion' kannte ich noch gar nicht.