в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:10Z

1 версия

Новая страница

==File files with Application.FileSearch==



<source lang="vb">

Option Compare Database
Option Explicit
Sub findFile()
With Application.FileSearch
.NewSearch
.LookIn = "c:\VBA"
.FileName = "mydb.mdb"
.SearchSubFolders = True
If .Execute() > 0 Then
Debug.Print .FoundFiles(1) & " was found"
Else
Debug.Print "The file is not found."
End If
End With
End Sub
</source>

==Find a file==



<source lang="vb">

Sub findFile()
With Application.fileSearch
.NewSearch
.LookIn = "c:\"
.FileName = "mydb.mdb"
.SearchSubFolders = True
If .Execute() > 0 Then
MsgBox "The file " & .FoundFiles(1) & " was found"
Else
MsgBox "The file is not found"
End If
End With
End Sub
</source>

==Find a file with wildcard character==



<source lang="vb">

Sub findFile()
Dim i As Integer
With Application.fileSearch
.NewSearch
.LookIn = "c:\"
.FileName = "*.mdb"
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i
End If
End With
End Sub
</source>

==if a particular file exists, and False if not==



<source lang="vb">

Function FileExists(fname) As Boolean
With Application.FileSearch
.NewSearch
.Filename = fname
.Execute
If .FoundFiles.Count = 0 Then _
FileExists = False _
Else FileExists = True
End With
End Function
</source>

==PropertyTests==



<source lang="vb">

Sub SetPropTests()
Dim pt As PropertyTests
Dim I As Integer
Set pt = Application.fileSearch.PropertyTests
With pt
For I = .Count To 1 Step -1
.Add name:=" Last Modified", _
Condition:=msoConditionOnOrAfter, _
Value:=DateAdd("d", -7, Date)
Next I
End With
End Sub
</source>

==searches the My Documents directory and its subdirectories for all XLS files that contain the text budget.==



<source lang="vb">

Sub FindFiles()
With Application.fileSearch
.NewSearch
.LookIn = "C:\My"
.SearchSubFolders = True
.TextOrProperty = "textInFile"
.MatchTextExactly = True
.FileName = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i
End With
End Sub
</source>

==The FileSearch Object==



<source lang="vb">

Sub fileSearch()
Dim fs As fileSearch
Dim numFiles As Long
Set fs = Application.fileSearch
With fs
.NewSearch
numFiles = .Execute
End With
End Sub
</source>

==The FoundFiles Collection Object==



<source lang="vb">

Sub found()
Dim ff As FoundFiles
Dim fs As fileSearch
Dim I As Integer
Set fs = Application.fileSearch
Set ff = fs.FoundFiles
With ff
For I = 1 To ff.Count
Debug.Print ff.Item(I)
Next I
End With
End Sub
</source>

==Use Application.FileSearch to find files==



<source lang="vb">

Sub findFiles()
Dim i As Integer

With Application.FileSearch
.NewSearch
.LookIn = "c:\VBA"
.FileName = "*.mdb"
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i
End If
End With
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/File Path/FileSearch - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия