Excel .filesearch.scopefolders Problem

10/01/2008 - 16:49 von Oliver Ott | Report spam
Hallo!

Ich arbeite gerade mit Excel 2003 und habe eine Excel Tabelle
programmiert, die mir bestimmte Verzeichnisse durchsucht und alle
gefundenen Dateien in der Excel tabelle übersichtlich auflistet.

Auszug aus dem Code:
*****
...
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = ThisWorkbook.ActiveSheet.Cells(7, 3)
'.Filename = "*.xls"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderDescending) > 0 Then
j = 1

j = 0
For i = 1 To .FoundFiles.Count
If InStr(1, .FoundFiles(i), "\Archiv") = 0 Or
InStr(1, .FoundFiles(i), "\Archiv") = Null Then
ReDim Preserve V_DATEINAMEN(4, j)
Call ShowFileInfo(.FoundFiles(i), j)
j = j + 1
End If
Next i
End If
End With

Exit Function
...
***

Die Datei wird hier von einigen Mitarbeitern verwendet, nur bei einem
Kollegen Kollegen werden nie Dateien gefunden. Der Selbe Vorgang
funktioniert bei allen anderen Kollegen fehlerfrei, die Dateien werden
gefunden. Rechner und Netzwerkverbindungen sind identisch.

Beim Debuggen am Rechner des Kollegen fiel mir auf, dass die Zuordnung
.LookIn = ThisWorkbook.ActiveSheet.Cells(7, 3)
bei ihm nicht funktioniert.
Der Code làuft weiter, aber in .LookIn steht der bereits vor der
ausgeführten "Filesearch" vorhandene Netzwerkpfad ("\\server\...). ich
kann diese Eigenschaft nur bei ihm nicht veràndern.

Die weitere Recherche ergab, dass bei allen Kollegen im .scopefolders
Object 3 items (msoSearchInmyComputer, msoSearchInmyNetworkPlaces,
msoSearchInmyOutlook) vorhanden sind, bei ihm keines.

Der Rechnerneustart hat nichts gebracht und da ich das scopefolders-
Object nicht im VBA veràndern kann bin ich mit meinem latein am Ende.

Kann mir jemand irgendeinen Tip dazu geben?
Ich bin für jeden Hinweis dankbar.

Wir verwenden hier Win XP Pro (SP2), Office 2003 (SP2) und haben
Laptops die über Dockingstation am Netz hàngen.

Vielen Dank im Voraus!

Oliver Ott
 

Lesen sie die antworten

#1 Oliver Ott
14/01/2008 - 17:23 | Warnen spam
Hallo!

Also, ich nehme an ich bin der Einzige der ein vergleichbares Problem
hat, oder? :-)

Weiß jemand von Euch, ob und ggf. in welcher Gruppe ich Hilfe zu
obigen Problem finden kann?

Bzw, wie finde ich heraus wo/wie das Scopefolder Object erstellt wird?

Ich bin für jeden Hinweis dankbar!

Gruß
Oliver Ott

Ähnliche fragen