Dir bzw. Dir$

[Gandhi]

Code

p=Dir("y:\04-2007\data.txt",16)

gibt bei mir
data.txt für p zurück.
Meine bisherige Theorie war, dass das einen leeren String zurückgibt, da der Pfad nicht der eines Directories ist.

Irre ich mich oder ist das ein Bug?

Btw: die Datei existiert am angegebenen Pfad und die Notes Version ist 6.5.4

[y20frank]

Returns file or directory names from a specified directory, or returns a drive volume label.

The first call to Dir or Dir$ returns the name of the first file in the specified directory that fits the file name specifications in the fileSpec argument.

Gruß
Frank

[Gandhi]

Ja, aber das löst mein Problem nicht. Laut Noteshilfe sollte der Parameter 16 dafür sorgen, dass nur nach Verzeichnissen gesucht wird. Daher gehe ich davon aus, dass dieser Aufruf gar nichts zurückliefert, da der Pfad eine Datei beschreibt.

[LN4ever]

Vor langer Zeit habe ich mir die folgende Funktion geschrieben, die ich immer wieder einsetze - bisher ohne Auffälligkeiten:

Function IstVerzeichnis(Byval sFolderPath As String) As Integer
   Dim FirstCheck As Integer
   Const IST_DIRECTORY = 16
   Const IST_DATEI=0
   Const IST_VERSTECKT=2
   Const IST_SYSTEM=4
   FirstCheck=IST_DATEI+IST_VERSTECKT+IST_SYSTEM
   IstVerzeichnis = False
   If Dir$(sFolderPath, FirstCheck) <> "" Then Exit Function
   If Dir$(sFolderPath, IST_DIRECTORY) <> "" Then IstVerzeichnis = True
End Function

Ich schätze, daß ich den ersten Versuch, ob es sich um eine Datei handelt, deshalb gemacht habe, weil bei einer Datei in der DIR-Rückgabe immer etwas drinsteht.

Gruß

Norbert

[Gandhi]

Interessant....wenn man die Parameter addieren kann, ist die 0 ja zwangsläufig immer dabei...also kann man sich keine Verzeichnisse anschauen ohne Dateien zu erhalten?

[diali]

Richtig, Dateien kommen leider immer mit.

[diali]

Vorausgesetzt, Du hast keine Punkte im Dateinamen und alle Dateien haben einen Punkt und Dateiendung, dann liefert
DirName = Dir$("c:\*.", 16)
Dir nur Verzeichnisse. Die Besonderheit mit Dateien ohne Punkt und Dateiendung könnte man jetzt noch ausfiltern.

[Gandhi]

So habe ich es zwischenzeitlich auch schon umgesetzt gehabt (in dem Fall kein Problem).
Aber das nächste mal werde ich gleich die Win API quälen