home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / MAINF.ZIP / GETDIR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-07-05  |  1.9 KB  |  48 lines
  1. GetDir
  2. Select Directory
  3. Form2+
  4. Label1
  5. Label3
  6. Selection:
  7. Label2
  8. Label2
  9. flFiles
  10. &Cancel
  11. cbDirectory
  12. Create &Directory
  13. Drive1
  14. cbOK_Click
  15. Index
  16. LBPath
  17.     ListIndex
  18. SelectedPath
  19. ThePath
  20. FioFillGDTemp
  21. GetDir
  22.     Form_Load
  23. WindowState
  24. Screen
  25. Width
  26. Height
  27. Label2
  28. Caption
  29. Drive1`
  30. Drive
  31. Dir1_Change
  32. flFiles
  33. Drive1_Change
  34. cbDirectory_Click
  35. GetDir2
  36. Modal
  37. cbOK_Click
  38.  This is a neat little trick to emulate the effect
  39.  of the ENTER key in common dialog box controlse
  40.  Test to see if the Selected directory is the same as the directoryt
  41.  that's highlighted in the directory list box.  If it's noti
  42.  then change the directory to the highlighted directory 
  43.  If they're the same, then we're all done and we can exit
  44. Form_Load
  45. Dir1_Change
  46. Drive1_Change
  47. cbDirectory_Click
  48.