1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim objConnection As New ADODB.Connection
Dim objRecordset As New ADODB.Recordset
sQuery = "SELECT System.FileName, System.ItemPathDisplay FROM SystemIndex where directory = 'x:\"
objConnection.Open "Provider=Search.CollatorDSO.1;Extended Properties='Application=Windows';"
objRecordset.Open sQuery, objConnection
objRecordset.MoveFirst
nb = 0
objRecordset.MoveFirst
Do Until objRecordset.EOF
sResult = objRecordset.Fields.Item("System.FileName")
sPAth = objRecordset.Fields.Item("System.ItemPathDisplay")
nb = nb + 1
objRecordset.MoveNext
Loop
MsgBox nb |
Partager