Windows 7 und ACC 2003

[PeterW]

Frohe Weihnachten,
Der neue Rechner hat Windows 7 Homeedition
Mit der frsch installierten ACC 2003 und unter XP einwandfrei laufender DB bekomme ich nun eine falschen Wert bei der Funktion

X = DIR("Verzeichnis")

Als Antwort bekomme ich normalerweise einen Leerstring, wenn das Verzeichnis leer ist bzw X enthält den ersten gefundenen Dateinamen aus diesem Verzeichnis.
Unter Windows 7 bekomme ich nun einen Leerstring obwohl es Dateien in dem Verzeichnis gibt.

Gibt es dafür eine Erklärug?

Grüße aus Berlin
Peter

[Hondo]

Hallo,
läuft Windows 7 unter 64 Bit?
Hast du deinen Code mal Kompelliert?
Datenbank Komprimiert/Repariert?
Verweise alle vorhanden?

Andreas

[PeterW]

Hallo Andreas,
Windows 7 läuft unter 64bit und die Verweise sind identisch mit denen auf dem XP-System
jedoch ohne Erfolg
Gruß
Peter

[Hondo]

Hallo,
hast du SP3 für das Office installiert? Und ggf aktuelle Hotfixes?

Andreas

[Hondo]

Hi, ist Verzeichnis ein Netzlaufwerk?

[database]

Hallo,

...und ist "Verzeichnis" mit einem Backslash  \  abgeschlossen?

Habe das eben mal versucht - ohne Backslash = "", mit Backslash erhalte ich den ersten gefundenen Dateinamen

[PeterW]

Das SP 2 ist installiert und der Pfadname lautet:
C:\Verzeichnis\Unterverzeichnis\*

[Hondo]

Hi,
für Office 2003 gibt es bereits das SP3, nicht 2

[database]

Hallo,

Was pssiert, wenn du den Stern im Pfad wegnimmst?

Code [Auswählen] Erweitern


Dim Verzeichnis as String
Dim X as String

Verzeichnis = "C:\Verzeichnis\Unterverzeichnis\"

X = Dir(Verzeichnis)

...zeigt bei mir den Namen der ersten gefundenen Datei in 'Verzeichnis' an

Win 7 64 Bit Ultimate, ACC2007 / Win 7 64 Bit Ultimate, ACC2010 als VM, Win 7 64 Bit Ultimate, ACC2003 SP1 / SP2 / SP3
Keine Probleme mit oben angebenen Kombinationen, es wird jeweils der Name der ersten gefundenen Datei ausgelesen.

[PeterW]

Ich habe noch einmal alles probiert, aber ohne Erfolg
Gibt es noch einen Hinweis?
Gruß
Peter

[database]

Guten Morgen,

ich fürchte, ich kann dir da nicht weiterhelfen - höchstens noch mit einem Verzweiflungshinweis  

Windows 7 Home  ...  die Rechtevergabe unter dieser Edition kenn' ich zu wenig

Benutzerkontensteuerung, versuch mal den Regler ganz nach unten, dann Neustart.
Überprüfen der Zugriffsrechte auf den benötigten Ordner
Definiere versuchsweise den Speicherort als 'vertrauenswürdigen Speicherort'
Kannst du Dateien in deinen Benutzerverzeichnissen auflisten?

Dann bin ich mit meinem Latein am Ende

[PeterW]

Ich werde weiter experimentieren.
Danke auf jeden Fall für Eure Hilfe
Gruß und guten Rutsch
Peter

[PeterW]

Ich haben inzwischen den Fehler in meinem VBA-Code entdeckt und nunfunktioniert es einwandfrei.
Wie der Fehler jedoch dahingekommen ist, denn früher ist er nicht aufgetreten das wissen die Götter.
Nochmals Danke für die Unterstützung
Gruß
Peter

[MzKlMu]

Hallo,

Ich haben inzwischen den Fehler in meinem VBA-Code entdeckt und nunfunktioniert es einwandfrei.

Den Fehler solltest Du hier natürlich auch beschreiben. Die Lösungen (auch die selbst gefundenen) gehören auch ins Forum.

[PeterW]

Ich habe in der Zeile

strPath = "C:\Verzeichnis"

If Dir(strPath & "\") = "" Then ....

einen Stern gehbat

If Dir(strPath & "\*") = "" Then .....

und das hat den Fehler verursacht

Eigenartigerweise läuft das Programm unter Windows XP auch mit diesem Stern

Gruß
Peter