ich lassen eine Datei automatisch aktualisieren. Dazu exportiere ich aus einem Programm eine Datei, die die aktuellen Daten enthält. Das Programm speichert standardmässig in einem "versteckten Ordner". Nun habe ich diese beiden Sub's zum suchen der Datei im Forum gefunden und das funktioniert soweit auch recht gut, wenn die Datei in einem nicht versteckten Ordner steht. Man kann natürlich die Eigenschaft des Ordners ändern, aber die Eigenschaft wird beim Neustart wieder zurück gesetzt. Daher möchte ich, dass die Sub's auch in versteckten Ordnern suchen.
Private Sub LookForDirectories(ByVal DirToSearch As String, _
FileToSearch As String)
Dim counter As Integer
Dim i As Integer
Dim Directories() As String
Dim Contents As String
counter = 0
DirToSearch = DirToSearch & "\"
Contents = Dir(DirToSearch, vbDirectory)
On Error Resume Next
Do While Contents ""
If Contents "." And Contents ".." Then
If (GetAttr(DirToSearch & Contents) And vbDirectory) = _
vbDirectory Then
counter% = counter% + 1
ReDim Preserve Directories(counter)
Directories(counter) = DirToSearch & Contents
End If
End If
Contents = Dir()
Loop
If counter = 0 Then Exit Sub
For i = 1 To counter
GetFilesInDirectory Directories(i), FileToSearch
Application.StatusBar = "Durchsuche Ordner " & _
Directories(i) & "..."
LookForDirectories Directories(i), FileToSearch
Next i
End Sub
Private Sub GetFilesInDirectory(ByVal DirToSearch As String, _
FileToSearch As String)
Dim NextFile As String
On Error Resume Next
If InStr(DirToSearch, "\") = 0 Then Exit Sub
NextFile = Dir(DirToSearch & "\" & "*.*")
Do Until NextFile = ""
If NextFile = FileToSearch Then
intCount = intCount + 1
ReDim Preserve arrFiles(intCount)
arrFiles(intCount - 1) = DirToSearch & "\" & NextFile
End If
NextFile = Dir()
Loop
End Sub
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter