Robert88
Robbie
- Local time
- Today, 10:34
- Joined
- Dec 18, 2004
- Messages
- 335
mso commands???
Hi All,
Recently I asked about finding information from folders or in my case a CD.
http://www.access-programmers.co.uk/forums/showthread.php?p=415218#post415218
Thanks to GHudson I managed to download the file attached in his comments, which I noticed has lost it link but that is another story.
I want to know more about the mso commands in this example as I cannot seem to find it in any books as shown red below.
Can anyone suggest a book on it as having problems searching books on amazon within indexes to find code like it. Rather than ask a lot of question about it I would rather read a good book on it, then ask questions.
I hope someone can help?
An example of the code is:
Hi All,
Recently I asked about finding information from folders or in my case a CD.
http://www.access-programmers.co.uk/forums/showthread.php?p=415218#post415218
Thanks to GHudson I managed to download the file attached in his comments, which I noticed has lost it link but that is another story.
I want to know more about the mso commands in this example as I cannot seem to find it in any books as shown red below.
Can anyone suggest a book on it as having problems searching books on amazon within indexes to find code like it. Rather than ask a lot of question about it I would rather read a good book on it, then ask questions.
I hope someone can help?
An example of the code is:
Code:
Private Sub CmdSearchMyDocuments_Click()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\CD Data"
.FileName = "*.*"
.SearchSubFolders = True
If .Execute(SortBy:=[COLOR="Red"]msoSortbyFileName[/COLOR], _
SortOrder:=[COLOR="red"]msoSortOrderAscending[/COLOR]) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "There were no files found."
End If
End With
End Sub
Attachments
Last edited: