Dir Funktion in Vista

01/04/2008 - 15:21 von susannaw | Report spam
Huhu Newsgroup

Ich kàmpfe noch immer mit Access (2003) auf Vista und bin nun auf ein
weiteres Problem gestossen:

Um die Daten beim Kunden updaten zu können haben wir eine
Importfunktion. Der Kunde wird aufgefordert den Pfad anzugeben wo die
Update-Dateien hinterlegt sind (es können mehrere mit versch. Endungen
sein) und nutzt dann die Dir-Funktion um herauszufinden welche Datei
welche Endung hat.

Codemàssig sieht dies so aus (bissi gekürzt ;o)):
<code start>
Fname = "*.rts"
Fname2 = "*.ser"
Fname3 = "*.opt"

Directory = myopendialog("Specify Directory".)

match = dir(directory & "\" & fname)
if len(match) > 0 then
Endif

match = dir(directory & "\" & fname2)
if len(match) > 0 then
Endif

usw. </code ende>

Der Pfad der ausgewàhlt wird wird in die Variable Directory
übernommen, aber die Dir-Funktion gibt nachher immer nur "" (nix)
zurück anstatt des Dateinamens - es gibt keine Fehlermeldung.

Ich habe alle Referenzen überprüft, die sind alle da. Ausserdem finde
ich diese Funktion im Objekt-Browser und kann mir auch die Hilfe (beim
eingeben und mit F1) anzeigen lassen.Dann habe ich versucht, die Datei
nicht vom Programm-Verzeichnis, sondern vom Dokumenten-Verzeichnis des
Benutzers zu importieren, sowie den Pfad inkl. Dateiname direkt im
Code anzugeben.

Leider brachte dies nicht den gewünschten Erfolg.

Um jede Idee oder sonstige Hilfe bin ich euch sehr dankbar. Notfalls
schreibe ich es auch anders (obwohl diese Funktion ziemlich oft in der
ganzen Software benutzt wird)...

Danke euch schon vielmals im voraus

Susanna Wiedemann
 

Lesen sie die antworten

#1 Stefan Hoffmann
01/04/2008 - 15:33 | Warnen spam
hi Susanna,

schrieb:
match = dir(directory & "\" & fname)


Was gibt denn ein

MsgBox directory & vbCrLf & fname

aus?

Der Pfad der ausgewàhlt wird wird in die Variable Directory
übernommen, aber die Dir-Funktion gibt nachher immer nur "" (nix)
zurück anstatt des Dateinamens - es gibt keine Fehlermeldung.


Dir() funktioniert unter Vista ohne Probleme, z.B.

MsgBox Dir("C:\Program Files\Common Files\System\*.dll")


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen