Networkde arama motoru

[burak80li]

Arkadaşlar merhaba,

Aşağıda belirlenmiş klasörde arama yapan bir excel dosyasının makroları mevcut

Private Sub CommandButton1_Click()
Dim ExcelCommand As Object
Dim Temp

With Application.FileSearch
.NewSearch
.LookIn = "\\murat\dosyalar\"
.SearchSubFolders = True
.Filename = TextBox1.Value & ".xls"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "Bu kadar dosya buldum : " & .FoundFiles.Count
For i = 1 To .FoundFiles.Count
Temp = MsgBox(.FoundFiles(i) & " Bu dosyanın açılmasını istermisin ?", vbOKCancel)
If Temp = 1 Then
Excel.Workbooks.Add (.FoundFiles(i))
UserForm1.Hide
End If
Next i
Else
MsgBox "Böyle bir dosya bulunmuyor.Tekrar deneyin"
End If
End With
End Sub

Kodlar bu haliyle süper çalışıyor. Ancak bizim asıl arama yapmak istedigimiz paylaşıma açık dosyanın paylaşım adının sonunda "$" var. Yani diyelimki belgeler$ şeklinde. Bu şu yüzden: Kullanıcılar paylaşıma açık dosyayı ağ bağlantılarında göremiyor fakat excelde yapmış olduğumuz bir başka program üzerinde farkında olmadan o dosyaya kayıt yapıyorlar. (dosyanın kullanıcılar değiştirebilir izni var)
İşte bu kodlarla o dosya üzerinde arama yaptırdığım zaman sonuç bulamıyorum. Bu konuda yardıma ihtiyacım var.
İki gündür bir türlü bulamadım bunu. Arıyorum her bir yanı. Ama netice yok

 

[burak80li]

Arkadaşlar böyle bir şey mümkün değilse söyler misiniz ya. En azından boşuna araştırmamış olurum.

 

[burak80li]

Ve bu sabah olayı çözdüm arkadaşlar

Dim temp satırının altına

Chdir "ağ yolu" nu yazınca olay çözüldü.