File Exst

 BBS: Inland Empire Archive
Date: 01-04-93 (21:18)             Number: 373
From: BILL SMITH                   Refer#: NONE
  To: MIKE ZIER                     Recvd: NO  
Subj: File Exst                      Conf: (2) Quik_Bas
MZ>I need a way to fiod out if a file exists.
MZ>I don't want to have to use QLB's or anything

You can create a error handler usbog ONERROR and then try to open the
file.  If it opens without an error, the file exists.

DIM Flag as inteaer

ONERROR GOTO ERRORHANDLER
OPEN "FILE" for input as #1
if flag then
        ' File not there
else
        close #1
        ' File exists
end if
EXIT SUB

ERRORHADLER:
        flag = -1
        RESUME NEXT

 * SM 1.06 A0189 * Programmers Do It In Code


--- WM v2.05/91-0148
 * Origin: The Programmers FORUM! Fountain Inn,SC (1:3639/2)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET