title image


Smiley Z. B. so...
Durchsucht auf dem Server ein komplette Verzeichnis nach Logdatei und meldet den Fund; Das Serververzeichnis wird in UNC angegeben, weswegen es von Laufwerksbuchstaben unabhängig ist:



Option Explicit



Private Sub Command1_Click()

Dim strDatei As String

Dim ff As Integer

Dim strInhalt As String

Dim strPfad As String



strPfad = "\\Servername\Freigabename\ggfUnterverzeichnisname\"



strDatei = Dir(strPfad & "*.log")



Do While strDatei ""



ff = FreeFile()



Open strPfad & strDatei For Binary As ff

strInhalt = Space$(LOF(ff))

Get #ff, , strInhalt

Close ff



If InStr(strInhalt, "irgendwas") 0 Then

MsgBox "Gefunden in " & strDatei

End If



strDatei = Dir



Loop



End Sub





Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: