topic test if file exists in VBA Forum

test if file exists

Anonymous — Wed, 01 Dec 1999 01:03:14 GMT

Hello AutoCAD VBA Users,

How do I test if a file exists? I have a For Loop that will open a DXF
file (e.g. concatenate the loop number to the filename to come up with
file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
Problem is I get an error message when a file doesn't exist.

Thanks,

Jeff Jensen, jjensen@co.clark.nv.us

Sent via Deja.com http://www.deja.com/
Before you buy.

Re: test if file exists

Anonymous — Wed, 01 Dec 1999 04:41:21 GMT

Hi!
You can check for presence of a file by using "DIR" function.
The function returns the file name if the file exists in the specified path
or else it returns a zero length string.

Check in VBA help for more information as you can do lot many things with
this function.

--
bye,

P.Murali
wrote in message
news:821s4g$c79$1@nnrp1.deja.com...
> Hello AutoCAD VBA Users,
>
> How do I test if a file exists? I have a For Loop that will open a DXF
> file (e.g. concatenate the loop number to the filename to come up with
> file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
> Problem is I get an error message when a file doesn't exist.
>
> Thanks,
>
> Jeff Jensen, jjensen@co.clark.nv.us
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.

Re: test if file exists

Anonymous — Wed, 01 Dec 1999 05:38:28 GMT

You can download ACADX.ARX from the customer-files
newsgroup, and use its 'FindFile()' method.

jefferyjjensen@my-deja.com wrote:
>
> Hello AutoCAD VBA Users,
>
> How do I test if a file exists? I have a For Loop that will open a DXF
> file (e.g. concatenate the loop number to the filename to come up with
> file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
> Problem is I get an error message when a file doesn't exist.
>
> Thanks,
>
> Jeff Jensen, jjensen@co.clark.nv.us
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* tony.tanzillo@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/

Re: test if file exists

Anonymous — Wed, 01 Dec 1999 15:41:46 GMT

jefferyjjensen@my-deja.com wrote:

> Hello AutoCAD VBA Users,
>
> How do I test if a file exists? I have a For Loop that will open a DXF
> file (e.g. concatenate the loop number to the filename to come up with
> file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
> Problem is I get an error message when a file doesn't exist.
>
> Thanks,
>
> Jeff Jensen, jjensen@co.clark.nv.us
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.

Another thing to try is to use error handling as well s the built in
findfiles and dir stuff.
eg
on error resume next
... do your stuff here ...say kill a file or attempt opening a file
.... and if this triggers an error you can now check it thus
if err.number<>0 then
..do whatever you need to do if an error ocurred etc
end if

Re: test if file exists

Anonymous — Wed, 01 Dec 1999 17:53:30 GMT

Check out the Dir() function. The online help is pretty clear.

jefferyjjensen@my-deja.com wrote:
>
> Hello AutoCAD VBA Users,
>
> How do I test if a file exists? I have a For Loop that will open a DXF
> file (e.g. concatenate the loop number to the filename to come up with
> file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
> Problem is I get an error message when a file doesn't exist.
>
> Thanks,
>
> Jeff Jensen, jjensen@co.clark.nv.us
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.

Re: test if file exists

Anonymous — Sat, 26 Feb 2000 20:45:34 GMT

'Add this code to the appropriate event:

'success% = FileExists%("C:\vb\vb.exe") 'A full path and filename

' FileExists% returns True if file exists
'If success% = True Then
'MsgBox "This file already exists." ', 48, File Error
'Else
'MsgBox "No File Found"
'End If
'End Sub
'How to detect if a file already exists.
'-------------------------------------------------------------------
' To detect an existing file, use the function below:

'Function FileExists%(fname$)
'On Local Error Resume Next

'Dim ff%
' ff% = FreeFile
' Open fname$ For Input As ff%

' If Err Then
' FileExists% = False
' Else
' FileExists% = True
' End If

' Close ff%

'End Function

wrote in message
news:821s4g$c79$1@nnrp1.deja.com...
> Hello AutoCAD VBA Users,
>
> How do I test if a file exists? I have a For Loop that will open a DXF
> file (e.g. concatenate the loop number to the filename to come up with
> file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
> Problem is I get an error message when a file doesn't exist.
>
> Thanks,
>
> Jeff Jensen, jjensen@co.clark.nv.us
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.

Re:

Anonymous — Sat, 26 Feb 2000 20:45:40 GMT

There is a simpler (and faster) way: use the Dir$ function. e.g.:
Dir$("c:\program files\mdt\acad.exe") will return "acad.exe" if the file
exists in that location or "" if it doesn't.

--
Visit me at: http://www2.stonemedia.com/franko

"Jim Arthur" wrote in message
news:899djs$8hs4@adesknews2.autodesk.com...
> 'Add this code to the appropriate event:
>
> 'success% = FileExists%("C:\vb\vb.exe") 'A full path and filename
>
> ' FileExists% returns True if file exists
> 'If success% = True Then
> 'MsgBox "This file already exists." ', 48, File Error
> 'Else
> 'MsgBox "No File Found"
> 'End If
> 'End Sub
> 'How to detect if a file already exists.
> '-------------------------------------------------------------------
> ' To detect an existing file, use the function below:
>
> 'Function FileExists%(fname$)
> 'On Local Error Resume Next
>
> 'Dim ff%
> ' ff% = FreeFile
> ' Open fname$ For Input As ff%
>
> ' If Err Then
> ' FileExists% = False
> ' Else
> ' FileExists% = True
> ' End If
>
> ' Close ff%
>
> 'End Function
>
> wrote in message
> news:821s4g$c79$1@nnrp1.deja.com...
> > Hello AutoCAD VBA Users,
> >
> > How do I test if a file exists? I have a For Loop that will open a DXF
> > file (e.g. concatenate the loop number to the filename to come up with
> > file1.dxf, file2.dxf, etc.), do some VBA changes, then save as DWG.
> > Problem is I get an error message when a file doesn't exist.
> >
> > Thanks,
> >
> > Jeff Jensen, jjensen@co.clark.nv.us
> >
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
>