home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / fscommand / Xtras / FileXtra4_test.dir / 00005_Script_test_FileIsLink() < prev    next >
Text File  |  2002-12-20  |  501b  |  20 lines
  1. on test_FileIsLink
  2.   fxObj = xtra("FileXtra4").new()
  3.   
  4.   thePath = "Macintosh HD:"
  5.   theTypes = "TEXT/PDF /JPEG"
  6.   filepath = fxObj.fx_FileOpenDialog(thePath, theTypes)
  7.   
  8.   put "open dialog returns '" & filePath & "'"
  9.   
  10.   put "fx_FileIsLink() returns " & string(fxObj.fx_FileIsLink(filePath))
  11.   
  12.   errCode = fxObj.fx_ErrorNumber()
  13.   put "FX3 error code: " & string(errCode)
  14.   if errCode <> 0 then
  15.     put "    error string: " & fxObj.fx_ErrorString()
  16.   end if
  17.   
  18.   fxObj = 0
  19. end
  20.