Dir sollte man nicht benutzen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sam,
das hat jetzt aber mit "eintrittsinvariant" nichts zu tun. Sondern dabei geht es darum, dass Dir einen eigenen Pointer hat, der, solange ein Pointer aus einer anderen Routine darauf zeigt, nicht zurückgesetzt wird. Das ganze hat, wie K.Rola schon schrieb, mit Multitasking zu tun. Das heißt mehrere Routinen laufen parallel und greifen abwechselnd auf eine Routine zu in der Dir verwendet wird. Durch seinen eigenen Pointer steht dieser dann, wenn eine zweite Routine darauf zugreift möglicherweise nicht auf Null, sondern irgendwo oder am Ende und du bekommst falsche Ergebnisse zurückgeliefert.
Windows Script benutze ich nicht mehr, da ich Mappe in denen dieses Objekt benutzt wird, nicht per Mail in Firmen senden kann, welche einen restriktiven Scriptblocker in ihrer Firewall benutzen. Außerdem ist diese API - Funktion auch wesentlich schneller, da ich kein Objekt anlegen muss:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
    ByVal RootPath As String, _
    ByVal InputPathName As String, _
    ByVal InputPathBuffer As String) As Long

Private Const MAX_PATH = 260&

Private Function fncFileExist(strPath As String, strFile As String) As Boolean
    Dim strTempBuffer As String * MAX_PATH
    fncFileExist = Cbool(SearchTreeForFile(strPath, strFile, strTempBuffer))
End Function

Public Sub test()
    If fncFileExist("D:\test", "test.xls") Then MsgBox "Die gibt's tatsächlich"
End Sub

Gruß
Nepumuk

Hallo Interessierte,
es tut mir sehr leid :-(, ich habe erst gestern gemerkt, dass in der Antwort in dem anderen Forum auch
Code anhing, anfangs hatte ich wohl nicht gescrollt weil ich dachte der Beitrag ist zu Ende.
Jedenfalls hat er Recht mit seiner Aussage daß Dir nicht zu trauen ist.
Wobei ich noch nicht so ganz beim dem Code durchblicke, aber das ist Normalzustand bei mir :-)
Im Anhang ist der Code plus Bemerkungen von ihm.
Danke für alle Zuschriften
Schön wieder mal K.Rola gelesen zu haben
Gruß
Reinhard


'Auf die Verwendung der Funktion Dir$ zur Existenzprüfung sollte dringend verzichtet werden, da  _
diese 'Funktion nicht eintrittsinvariant ist. Ihre Verwendung kann zur Folge haben, dass sich
anderen 'Programmteile nach Aufruf der Funktion zur Existenzprüfung nicht mehr wie erwartet  _
verhalten!
'Will man die Existenz eines Files oder Ordners prüfen, so sollten immer Filebezogene Routinen
eingesetz 'werden ( FileLen, GetAttr etc.)
'Ein kleines Demo!
'Die Zeile wo als Kommentar Test steht, einfach mal mit ausführen und mal nicht. Dabei schaut  _
euch
die 'Ergebnisse in beiden Faellen mal an ;)


Option Explicit
Private Sub Form_Load()
Call EnumDirs("c:\")
End Sub
Private Sub EnumDirs(ByVal Path As String)
Dim CurrentDir As String
CurrentDir = Dir$(Path, vbDirectory)
Do While Len(CurrentDir) > 0
If CurrentDir  "." And CurrentDir  ".." Then
If _CBool(GetAttr(CombinePath(Path, CurrentDir)) And vbDirectory) Then
Debug.Print CurrentDir
End If
End If
'Debug.Print DirExists("C:\Programme") ' Test
CurrentDir = Dir$
Loop
End Sub
Private Function DirExists(ByVal Path As String) As Boolean
DirExists = (Len(Dir$(Path, vbDirectory)) > 0)
End Function
Private Function CombinePath(ByVal Part1 As String, ByVal Part2 As String)
CombinePath = Part1
If Right$(CombinePath, 1)  "\" Then
CombinePath = CombinePath & "\"
End If
CombinePath = CombinePath & Part2
End Function
MfG Alex

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread