Abfrage FileExists(filename)

[allarich]

Hallo und guten Morgen,
wer kann weiterhelfen?
Ich möchte im Programm abfragen,ob ein File existiert und je nachdem diesen File aufrufen oder einen
Neuen File(ExcelWorkbook) erstellen. Meine Abfrage läuft aber immer darauf hinaus,daß der File nicht existiert,obwohl ich genau weiß,daß er existiert.
Folgenden TestCode habe ich generiert:

.
. :dancer2:

Delphi-Quellcode:

var pf: string;
label Marke1;
label Marke2;
begin
pf:= InputBox('Testfile','Pfadeingabe','');
if FileExists(pf) then
GoTo Martke1
else
GoTo Marke2;

Marke1:
Label1.Caption:='File gefunden';
Marke2:
Label1.Caption:='File nicht gefunden';
end;

:idea:


MfG
allarich

[edit=Luckie]Füge das nächste mal bitte selbsständig die Delphi-Tags ein. Mfg, Luckie[/edit]

[sakura]

Hi allarich,

nutze doch bitte mal die "9" Tags, um obigen Code auch schön darzustellen.

...:cat:...

[Luckie]

Erstmal grausam, diese Labels. Delphi ist eine strukturierte Programmiersprache, die Blöcke kennt:

Delphi-Quellcode:

if FileExists(Filename) then
begin
  // Datei existiert, mach dies
end
else
begin
  // Datei existiert nut, mach das
end;

Daraus resultiert auch dein Fehler im Code: Wenn zu Marke eins gesprungen wird, wird auch der Code danach abgearbeitet, das heißt, egal, ob die Datei existiert oder nicht, im Label steht immer "File nicht gefunden". :roll:

[Bernhard Geyer]

Delphi-Quellcode:

uses
  Dialogs;

...

var 
  pf: string; 
  OpenDialog: TOpenDialog;
begin 
  OpenDialog := TOpenDialog.Create;
  try
    if OpenDialog.Execute then
    begin
      pf := OpenDialog.FileName;
      if FileExists(pf) then
        Label1.Caption:='File gefunden'
      else
        Label1.Caption:='File nicht gefunden'; 
    end
  finally
    OpenDialog.Free;
  end;
end;

[shmia]

Dein Programmcode ist aber extrem schlecht. :kotz:
Die Verwendung von Goto an völlig unnötiger Stelle ist ein Verbrechen und sollte gleich mit
380V Stromstößen bestraft werden !!!

Überleg mal, was passiert wenn das Programm auf Marke1 läuft.
Könnte es dann nicht sein, dass der Code unter Marke2 gleich danach ausgeführt wird??? (retorische Frage)

Delphi-Quellcode:

Marke1: 
Label1.Caption:='File gefunden'; 
Marke2: 
Label1.Caption:='File nicht gefunden'; 
end;

[Luckie]

Zitat:

Zitat von shmia

Überleg mal, was passiert wenn das Programm auf Marke1 läuft.
Könnte es dann nicht sein, dass der Code unter Marke2 gleich danach ausgeführt wird??? (retorische Frage)

Habe ich es denn so schlecht erklärt, dass ihr es auch noch mal doppelt und dreifach erklären müsst? :gruebel:

[jim_raynor]

Ich glaube sein Problem war einfach, dass er nicht wusste wie er in einem If mehere Anweisungen machen kann. :drunken:

Das wurde aber jetzt oft genug gezeigt, so dass ich das nicht nochmal erkläre :coder2:

[shmia]

Zitat:

Zitat von Luckie

Habe ich es denn so schlecht erklärt, dass ihr es auch noch mal doppelt und dreifach erklären müsst? :gruebel:

Weisst du nicht was konkurrierende Antworten sind?
3 Leute antworten auf eine Frage; manche sind schneller, manche brauchen mehr Zeit.
Du bist halt immer der Schnellste. :cyclops:

[glkgereon]

***OT***

Zitat:

Die Verwendung von Goto an völlig unnötiger Stelle ist ein Verbrechen und sollte gleich mit
380V Stromstößen bestraft werden !!!

ich würde 380000V nehmen :mrgreen:
***/OT***

[allarich]

Hallo Leute,
erstmal danke für Eure prompte Reaktion.
Ich hatte alles mögliche ausprobiert ,kam aber nicht weiter(oft sieht man dann vor lauter Bäume den Wald nicht mehr). Natürlich weiss ich wie man eine "if - Schleife" programmiert.Habe wahrscheinlich
schon programmiert, da waren die meissten von Euch noch nicht geboren (damals jedoch fasst ausschließlich in FORTRAN).Obwohl Delphi auch nur eine Programmiersprache ist,sind doch manche Dinge dagegen sehr unterschiedlich.

Ich habe Eure Vorschläge alle ausprobiert(einige hatte ich vorher schon versucht),aber ohne Erfolg !
Als letzten Versuch habe ich dann den Filename direkt in die Abfrage(if FileExists('F:/Test1.xls')
eingesetzt,ind siehe da,es funktionierte. Nicht aber über "InputBox". Kann mir jemand sagen warum nicht ?

MfG
allarich

[Luckie]

Hast du dir schon mal angekuckt, was die Inputbox zurückliefert?

[sakura]

Sorry, der muss erst einmal raus:

Zitat:

Zitat von allarich

Natürlich weiss ich wie man eine "if - Schleife" programmiert.Habe wahrscheinlich
schon programmiert, da waren die meissten von Euch noch nicht geboren

Das müssen Zeiten gewesen sein, als man IF noch für Schleifen nutzte :shock:

Zitat:

Zitat von allarich

Als letzten Versuch habe ich dann den Filename direkt in die Abfrage(if FileExists('F:/Test1.xls') eingesetzt,ind siehe da,es funktionierte. Nicht aber über "InputBox".

Zeige mal den Code wie er funktioniert und wie nicht, weil die oben aufgezeigten alternativen Lösungen korrekt sind.

...:cat:...

[glkgereon]

hast du auch brav "F:\test1.xls" eingegeben, oder nur "test1.xls"?

mach mal ein "showmessage(pf);" dazwischen....

[allarich]

Hallo Leute,
habe mein Problem endlich mit Eurer Hilfe gelöst.
mit " pf:= InputBox('InputBox','Prompt','Default string');
hat es endlich funktioniert. Eine Vielzahl der Vorschläge hatte ich schon längst durchgeführt,so z.B. Ausgabe von Zwischenwerten mittels ShowMessage !!!
Ich bin ja häufiger im Forum um etwas nachzusehen,habe aber das Gefühl,daß eine Anzahl von
Mitgliedern doch äußerst überheblich sind. Ich kann mir nicht vorstellen,daß jemand um Hilfe bittet wenn er sie nicht benötigt und sich dann häufig mit nichtssagende Aussagen begnügen muß,die oft wenig hilfreich sind. Auf eine konkrete Frage sollte auch immer eine konkrete Antwort erfolgen !!!!

MfG
allarich

[glkgereon]

das liegt an verschiedenen sachen:

zum einen sind wir dazu angehalten keine komplettlösungen zu bieten, daher oft aussagen wie "den rest machst du aber selber"
ausserdem kommt es oft genug vor das es solch ganz banale lösungen sind...

ich denke daher leitest du unsere angebliche überheblichkeit ab....