🚀 go-pugleaf

In article <1993Jan26.135724.234@samba.oit.unc.edu>, dil.admin@mhs.unc.edu (Dave Laudicina) writes...
>>Basically, it boils down to this:
>> How can I determine whether a file (in this case a .BMP) exists in the
>> given path?
>>
>>If someone can tell me what I have to do to solve this problem, please,
>>mail me. I would be very grateful.
>>
>You could set up a file list box for a particular drive and path 
>and search through the file list to see if the file is in the list.
> 
>I would also be interested if anyone has found a more efficient way
>to do this.
>Thx Dave L

This is not necessarily the best way that you could use, but this should also
work:

FUNCTION DoesFileExist (TheFilename$)
ON LOCAL ERROR GOTO ErrorHandler

OPEN TheFilename$ FOR INPUT AS #1
CLOSE #1

ErrorHandler:
SELECT CASE ERR
     CASE IS = (I don't remember the number, check the Error Messages appendix
                in the Reference; a certain number means file not found.)
          DoesFileExist = FALSE
     CASE ELSE
          DoesFileExist = TRUE
END SELECT
END FUNCTION

I'd also like to know if anyone knows a better way to do this, because using
ON LOCAL ERROR GOTO is, IMHO, a very kludgy way to program.

/Matthew

In <1993Jan26.135724.234@samba.oit.unc.edu> dil.admin@mhs.unc.edu (Dave Laudicina) writes:

>>Basically, it boils down to this:
>> How can I determine whether a file (in this case a .BMP) exists in the
>> given path?
>>
>>If someone can tell me what I have to do to solve this problem, please,
>>mail me. I would be very grateful.
>>
>You could set up a file list box for a particular drive and path 
>and search through the file list to see if the file is in the list.

>I would also be interested if anyone has found a more efficient way
>to do this.
>Thx Dave L

the Dir$ function Returns the name of a file matching a filespec.  if the
filespec is a filename without wildcards, it returns whether or not the file
exists.
Here's what I do:

const False = 0
Const True = Not False

Function Exists(Filespec$)
	if Dir$(FileSpec$) <> "" then
		Exists = True
		Exit Function
	else
		Exists = False
	end if
End Function

Brian Wheeler

-- 
******************************************************************************
* Brian 'Nautical' Wheeler - These are my opinions, do you hear me?  MINE!
* cat flames > /dev/null                    "Wombats are our friends" - Me
******************************************************************************

In article <1993Jan26.135724.234@samba.oit.unc.edu> dil.admin@mhs.unc.edu (Dave Laudicina) writes:
>>Basically, it boils down to this:
>> How can I determine whether a file (in this case a .BMP) exists in the
>> given path?
>>
>>If someone can tell me what I have to do to solve this problem, please,
>>mail me. I would be very grateful.
>>
>You could set up a file list box for a particular drive and path 
>and search through the file list to see if the file is in the list.
>
>I would also be interested if anyone has found a more efficient way
>to do this.
>Thx Dave L
>
>

It's easier to use DIR$() to check if a file exists:  eg.
if Dir$("c:\vb\test.bmp") <> "" then
   debug.print "File exists"
else
   debug.print "File not found"
endif

Barry.

   dil.admin@mhs.unc.edu (Dave Laudicina) writes:

>> > How can I determine whether a file (in this case a .BMP) exists in the
>> > given path?

>> >If someone can tell me what I have to do to solve this problem, please,
>> >mail me. I would be very grateful.

DL> You could set up a file list box for a particular drive and path 
DL> and search through the file list to see if the file is in the list.

DL> I would also be interested if anyone has found a more efficient way
DL> to do this.

	Why can't you use the DIR$ Function?  This function accepts a 
filespec mask and returns a string containing a filename or NULL if the file 
does not exist and can be repeatedly polled for all files meeting a wildcard 
filespec.

	IF Len(Dir$(FileSpec$)) > 0 THEN
		(stuff to do if the file exists)
	ELSE
		(stuff to do if it ain't there)
	END IF

	Check out page 94 of the Language Reference.

-Bruce Garrett
                                                                       \
 --- IF Bogosity%(Opinion$) > BSThreshold% THEN Opinion$ = ""          /\