home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / UTIL / FILEOPEN.ZIP / FILEOPEN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-04-09  |  9.2 KB  |  237 lines
  1. FileOpen
  2. wwwwwwwwwwwwwww
  3. wwwwwwwwwwwwwww
  4. Form1*
  5. FileSpecLabel
  6. &Filename:
  7. FileSpecBox
  8. OKButton
  9. FileListLabel
  10. Fi&les:
  11. DirListLabel
  12. &Directories:
  13. CurDirLabel
  14. CurDirLabel
  15. CancelButton
  16. &Cancel
  17. FileListBox
  18. DirListBox
  19.     NewButton
  20. &None
  21. FileOpenIcon
  22. wwwwwwwwwwwwwww
  23. wwwwwwwwwwwwwww
  24. AboutLabel
  25. About
  26. DriveDropDown
  27. DriveDropDownLabel
  28. Dri&ves:
  29. FileOpen;
  30. Form_Click
  31.     Form_Load
  32. NoParms;
  33.     Separatorb
  34. CommandLineG
  35. CLPS1
  36. CLPS2T
  37. DialogTitle
  38. FileSpec
  39. Executable
  40. LoadForm
  41. Caption
  42. Text,
  43. FileListBoxa
  44. Pattern
  45. FileSpecBox
  46. SelStart
  47.     SelLength
  48. Label1x
  49. Text1
  50. FileSpecLabel
  51. Drive1
  52. DriveDropDownLabelt
  53. DriveDropDown
  54. DirListBox
  55. DirListLabel
  56. File1
  57. Command1?
  58. OKButton
  59. CancelButton
  60.     NewButton)
  61. Picture1
  62. FileOpenIcon
  63. FileSpecString
  64. FileListBox_Clickw
  65. OkButton_Click
  66. CancelButton_Clickt
  67. NewButton_Click
  68. Form_Unload
  69. Cancel
  70. DirListBox_Change
  71. DirsBox
  72. DirListBox_Click
  73.     FileIndex
  74. FileSpecBoxChanged
  75. FileSpecChanged6
  76. DriveDropDown_Change
  77. DriveK
  78. FileName
  79. FileSpecBox_Change`
  80. NewFileSpecText
  81. NewDrivePosx
  82. FileSpecTexti
  83. NewDrive
  84. CurDrive
  85. NewPathPos
  86. NewPath(
  87. NewPathLength
  88. FirstBackSlash
  89. LastBackSlashe
  90. DirIndex
  91.     ListIndexH
  92. FileSpecLabel_Click=
  93. FileListLabel
  94. ThenNewPath
  95. FileListBox_DblClick
  96. FileSpecBox_DragDrop
  97. EXITOUT
  98. Validate|
  99. OldDrive
  100. FALSE
  101. Dummy
  102.     Driv_Ctrl2
  103.     LastDriveJ
  104. Dir_Ctrl
  105. ThenMsgBox
  106. TestFileSpecTextl
  107. TestSpec
  108. estFileSpecText]
  109. ThenTestFileSpecTextC
  110. ProcessFileSpec
  111. NewFileSpec
  112. TestFileSpecO
  113. ileSpec
  114. OldPath5
  115. DirFileList
  116. PickFilef
  117. Startapp
  118. StartAppStatusB
  119.     APPACTIVE    
  120. EXITNEWBUTTON
  121. OKButton_Click_EXITOUT
  122. ExitOKButtonc    
  123. DriveDropDownLabel_Click
  124.     NewDriver
  125.     TestDrive
  126. DriveDropDown_DragDrop
  127. CheckDrive
  128. MsgLine1
  129. MsgLine2
  130. MsgLine3)
  131. MsgLine5
  132. MsgLine4/
  133. MsgLine6
  134. MsgLine7
  135. MsgLine8
  136. MsgLine9$    
  137.     MsgLine10
  138.     MsgLine34!
  139.     MsgLine11P
  140. syntaxE    
  141. follows
  142. Dialog
  143. FILENAME_CHANGEDH
  144. TempVar
  145. TRUE8    
  146. Validate_Filename
  147. SaveFileDlg
  148. Write_Icon_To_File
  149. File_FileList
  150. Txt_Filename
  151. Drv_DriveList
  152. Dir_DirectoryList
  153. FILE_CHANGED
  154. CmdLineErrw
  155. PROCESS
  156. CurPath
  157. FileOpenIcon_Click
  158. AboutLabel
  159. AboutLabel_ClickV
  160. PREPAREFILESPECT    
  161. PrepFileSpec
  162. FileListIndex
  163.     ListCount
  164. Cursor
  165. Command1_Click
  166. RunFileSpec
  167. MousePointer
  168. Pointer
  169. NewSpec
  170. OldSpec
  171. Break
  172. Screen.    
  173. NewPattern
  174. OldPattern
  175. change
  176. drives
  177.     necessary
  178. CurDirLabel
  179. FilePattern
  180. CurDirLabel_Click
  181. Form_Load
  182. FileOpen
  183. FileOpen - "
  184. OkButton_Click
  185.  *** If user selects a file from FileListBox, load it and run.
  186. Error loading application!
  187. FileOpen
  188. FALSE"
  189.  *** If the user typed a full valid filename, go ahead and grab it
  190. Drive not ready"
  191. FileOpen
  192.  *** Here we have to remove the trailing backslash if the user
  193.  *** put it in.  Follows windows standard now...
  194.  *** Update the Filename property of the listbox so we can
  195.  *** trigger the drive/path/pattern properties
  196.  *** Trap for empty floppy drive...y
  197. Drive not ready"
  198. FileOpen
  199.  *** Trap for invalid pathname...v
  200. Directory does not exist
  201. FileOpen
  202.  *** Trap for attempt at filename...
  203. File does not exist"
  204. FileOpen
  205.  *** Trap for other errors...)
  206. Error number "
  207. FileOpen
  208.  *** Get the new drive, compare it to the old drive, and
  209.  *** change drives, if necessary....
  210.  *** Get the new path, and change to the new directory,d
  211.  *** if necessary...
  212. CancelButton_Click
  213. NewButton_Click
  214. Error loading Application!
  215. FileOpen
  216. Form_Unload
  217. There was a command line error!  The correct syntax is:"
  218.    1) Dialog title -- the default is FileOpen"
  219.    2) File specification -- the default is *.*
  220.    3) Program to load -- You MUST specify this
  221. Separate the 3 parameters with commas.
  222. FileOpen
  223. DirListBox_Change
  224. DirListBox_Click
  225. DriveDropDown_Change
  226. Drive not ready"
  227. FileOpen
  228. FileListBox_Click
  229. FileListBox_DblClick
  230. FileSpecBox_Change
  231. FileOpenIcon_Click
  232. Written by Eric Hall in MS VB 1.0"
  233. Portions Copyright Microsoft
  234. FileOpen
  235. AboutLabel_Click
  236. Command1_Click
  237.