Hi,

I'm running some statistics compilation using Access. I'll need to import data from .csv format to Access before generating the reports. The problem is that the data may sometimes be not available for import. How can I include in Access a condition such that it will only execute the macro to import the .csv file only when the file is available?

Pls advise.

Many thanks.

I don't have the script in front of me, but you can check for the existence of the file before you do anything using Scripting.FileSystemObject and then If objFile.FileExists()

I don't know the syntax off hand but could get it to you tomorrow.




mmcdonal

hi, many thanks. look forward to receiving the script from you tomorrow.

Okay, this will work:

Dim objFSO 'no variable type declaration or use Variant

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\Path\Filename.csv") Then

   ...do your processing here
Else
   MsgBox("File does not exist")
   Exit Sub
End If

This VBScript code should work within Access unless your security settings prevent scripts from working outside of the application or your system settings prevent scripts from scanning file systems. This is rare, however, since most people use default settings.

When the user opens Access, they will want to make sure they don't put the app in sandbox mode.

Anyway, I use this sort of scripting all the time in my apps.

Did this work for you?



mmcdonal

You can also add this to the script to make it more manageable:

Dim sFile As String

sFile = "C:\path\filename.csv"

Then...

If objFSO.FileExists(sFile) Then
...

This will allow you to take the file name from various places as a variable instead of hard coding it.

HTH

mmcdonal