home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / xfcn_fil.sit / Files / card_2901.txt < prev    next >
Text File  |  1988-02-20  |  4KB  |  183 lines
  1. -- card: 2901 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2769
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2001
  11. -- rect: left=18 top=31 right=74 bottom=65
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1011 / 1011
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then
  23.     pass mouseup
  24.   end if
  25.  
  26.   go home
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 8 (field)
  32. -- low flags: 01
  33. -- high flags: 0000
  34. -- rect: left=145 top=36 right=60 bottom=375
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 3
  39. -- text size: 14
  40. -- style flags: 1280
  41. -- line height: 18
  42. -- part name: 
  43.  
  44.  
  45. -- part 10 (field)
  46. -- low flags: 80
  47. -- high flags: 0004
  48. -- rect: left=118 top=79 right=265 bottom=416
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: About
  57.  
  58.  
  59. -- part 11 (field)
  60. -- low flags: 01
  61. -- high flags: 0000
  62. -- rect: left=26 top=72 right=316 bottom=197
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 3
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: 
  71.  
  72.  
  73. -- part 14 (field)
  74. -- low flags: 01
  75. -- high flags: 0007
  76. -- rect: left=231 top=76 right=260 bottom=486
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 10
  82. -- style flags: 0
  83. -- line height: 13
  84. -- part name: Files
  85.  
  86.  
  87. -- part 15 (button)
  88. -- low flags: 00
  89. -- high flags: 8003
  90. -- rect: left=234 top=272 right=294 bottom=334
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Files
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   global path
  102.   ask "Get files in what directory (complete path)" with path
  103.   if it is not empty then
  104.     put it into path
  105.     Put Files(it) into card field "files"
  106.   end if
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 22 (button)
  112. -- low flags: 00
  113. -- high flags: A003
  114. -- rect: left=371 top=272 right=295 bottom=461
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Syntax
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   show card field "info"
  126.   repeat until the mouse is down
  127.   end repeat
  128.   hide card field "info"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 23 (field)
  134. -- low flags: 81
  135. -- high flags: 0004
  136. -- rect: left=60 top=75 right=315 bottom=475
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 3
  141. -- text size: 10
  142. -- style flags: 0
  143. -- line height: 13
  144. -- part name: info
  145.  
  146.  
  147. -- part contents for card part 8
  148. ----- text -----
  149. FILES XFCN
  150.  
  151. -- part contents for card part 11
  152. ----- text -----
  153. Files() is a XFCN to get a list of files in a HFS directory.
  154.  
  155. You can specify the path name to the files and the file type you want to retreive.
  156.  
  157. This is freeware!
  158.  
  159.       Guy de Picciotto.
  160.  
  161. CIS: 73300,3637
  162. GENIE: G.PICCIOTO
  163.  
  164.  
  165.  
  166. -- part contents for card part 23
  167. ----- text -----
  168.  
  169. Files() can take 2 parameters:
  170.  
  171. The first one is the path name to look for files. If it does not exist or is empty, the default directory is used (I hope so)
  172.  
  173. The second parameter is the file type. You can look for multiple types. If no second parameter is supplied, files will return all files.
  174.  
  175. In case of an error, the routine will beep and return an empty string.
  176.  
  177. Ex. get Files("mydisk:hypercard","STAK,TXT")
  178.       get Files("mydisk:hypercard")
  179.       get Files("","STAK")
  180.       get Files()
  181.    
  182.  
  183.                                      (CLick anywhere to return)