home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma60.dms / ma60.adf / ReqTools / RexxReqTools / Examples / TTXARexx.lha / OpenFile.ttx < prev    next >
Encoding:
Text File  |  1993-10-21  |  977 b   |  42 lines
  1. /* $VER: OpenFile.ttx 1.1 (30.07.93) */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. GetFileInfo
  6. Parse VAR RESULT Lines Modified .
  7.  
  8. IF Modified = "YES" THEN DO
  9.   Ret = rtEZRequest( "Open without saving changes?", " _Ok |_Save...|_Cancel", "TurboText request", "RT_PubScrName=TURBOTEXT" )
  10.  
  11.   IF Ret = 0 THEN RETURN
  12.   IF Ret = 2 THEN DO
  13.     CALL 'Env:Rexx/SaveFileAs.ttx'
  14.     GetFileInfo
  15.     Parse VAR RESULT Lines Modified .
  16.     IF Modified = "YES" THEN RETURN
  17.   END
  18. END
  19.  
  20. GetFilePath
  21. DirName = RESULT
  22. FileName = ""
  23. Index = LastPos( "/", DirName )
  24. IF Index ~= 0 THEN DO
  25.   FileName = SubStr( DirName, Index + 1 )
  26.   DirName = Left( DirName, Index )
  27. END
  28. ELSE DO
  29.   Index = Index( DirName, ":" )
  30.  
  31.   IF Index ~= 0 THEN DO
  32.     FileName = SubStr( DirName, Index + 1 )
  33.     DirName = Left( DirName, Index )
  34.   END
  35. END
  36.  
  37. FileName = rtFileRequest( DirName, FileName, "Select file to open", "_Open", "RTFI_Flags=FREQF_PatGad RT_PubScrName=TURBOTEXT" )
  38.  
  39. IF rtResult = 1 THEN OpenFile QUIET FileName
  40.  
  41. CALL rtFreeFileBuffer
  42.