Test op het bestaan van een bestand

Originele schrijvers mogen hier hun eigen code Public Domain maken.

Test op het bestaan van een bestand

Berichtdoor Gordon » do mei 17, 2007 12:37 pm

Deze functie is zo vaak geschreven dat ik hem
public domain verklaar.

Code: Selecteer alles
dim info$(10, 10)

filedialog "Save","*.bat",file$

  if fileExists(DefaultDir$, file$) then
    notice "File exists!"
  else
    notice "File not found!"
  end if

wait


function fileExists(path$, filename$)
  'dimension the array info$( at the beginning of your program
  files path$, filename$, info$()
  fileExists = val(info$(0, 0))  'non zero is true
end function




Deze functie is noodzakelijk als u FILEDIALOG gebruikt.
Zeker als u daarbij de SAVE knop gebruikt.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Keer terug naar Public Domain stukjes

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron