home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SHOWEINF.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  303 b   |  14 lines
  1. on checkCD
  2.   set folder to "MacOS"
  3.   set file to "ACDtest"
  4.   set macVol to "AOL-CD"
  5.   set fullpath to EMPTY
  6.   set testPath to macVol & ":" & folder
  7.   if getNthFileNameInFolder(testPath, 1) = file then
  8.     set fullpath to testPath & ":" & file
  9.   else
  10.     go(the frame + 1)
  11.   end if
  12.   return fullpath
  13. end
  14.