Non-programmer needs help with VB code to locate file on hard drive

[Wilsoch]

Long story short: My Access developer is letting me down. He doesn't
really know VB and he can't figure out how to do what I need.

Situation:
Access database that will be used locally on individual user's
machines.

What I need:
I need code to make Access look for a "security" file located on the
user's hard drive. If it finds the file, it allows the user to continue
into the application. If it doesn't find the file, the database shuts
down and does not let the user proceed.

I'm begging and pleading for help from all of you experts. I am not a
VB programmer, and I'm not so ignorant as to think I could teach myself
how to do this in the short time I have before I need to release this.

Is anyone willing to help me with this?

[Wilsoch]

I could not agree with you more about the developer. I'm actually
married to an incredible developer (not Access), and working like this
is making me crazy. I've had no choice but to use this developer, as it
was a "directive" from my boss' boss, but I can tell you this: I'm not
happy about it.

Thank you all very much for your help. It's most appreciated.

[loringdo]

Well the answer is using Access but try some VB script. Here is some
code you or your programmer should be able to modify if need be. If you
need to open Access Database, create module, copy, paste, these
procedures. You may change the path variable and file type. If you
don't won't to see msgbox prompts, please put a Debug.Print and open
the immediate window and you view the results, without interuption.
There is quite of bit of documentation in help files in Access VBA help
file. Good luck!

loringdo
Option Compare Database
Option Explicit

Sub FileSearchCount ()

Dim i As Integer

With Application.Fil eSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Cou nt & _
" file(s) found."
For i = 1 To .FoundFiles.Cou nt
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
Sub SearchSubFolder s()

With Application.Fil eSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolde rs = True
.filename = "Run"
.MatchTextExact ly = True
.FileType = msoFileTypeAllF iles
End With
End Sub

Sub SearchSubFolder sFileType()
Dim i As Integer
Dim fs
'msoFileTypeOff iceFiles
'msoFileTypeAll Files

Set fs = Application.Fil eSearch

With fs
.LookIn = "C:\My Documents"
.FileType = msoFileTypeBind ers
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Cou nt & _
" Binder file(s) found."
For i = 1 To .FoundFiles.Cou nt
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no Binder files found."
End If
End With
End Sub
Sub FoundFilesCount ()
Dim i As Integer

With Application.Fil eSearch
For i = 1 To .FoundFiles.Cou nt
MsgBox .FoundFiles(i)
Next i
End With
End Sub
Sub FileSearchFolde rCount()

Dim fs
Dim i As Integer
Set fs = Application.Fil eSearch
With fs
.LookIn = "C:\DPG\Reports \122"
.filename = "*.snp"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Cou nt & _
" file(s) found."
For i = 1 To .FoundFiles.Cou nt
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

Sub FileLastModifie dYeasterday()
Dim fs
Set fs = Application.Fil eSearch
With fs
.LookIn = "C:\My Documents"
.SearchSubFolde rs = True
.LastModified = msoLastModified Yesterday
End With
End Sub