home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / dirsiz.zip / DIRSIZER.TBK (.txt) next >
Asymetrix ToolBook File  |  1991-02-10  |  29KB  |  435 lines
  1. System
  2. `D|D|
  3. DirSizer
  4. c`D|D|
  5. `D|D|
  6. System
  7. `D|D|
  8. dlgBox 
  9. c"&Utilities" 
  10. "Copy 
  11. clpbrd" 
  12. "Write 
  13. disk" 
  14. X"TBKGLVAR.DLL"
  15. SetGlobalVar(STRING,
  16.  GetGlobalVar(
  17. ClearAllGlobalVars()
  18. GlobalVarCount()
  19. ?"DSize")
  20. CopyToClpbrd
  21. copyToClpbrd
  22. writeToDisk
  23. ("Enter 
  24.  file:" 
  25. f"dirlist.txt"
  26. fname 
  27. -- give user chance 
  28. errorBin = 
  29. r= "no such 
  30. "File "&
  31. q&" exists! Overwrite?" \
  32. f"OK" 
  33. dlgbox 
  34. leaveBook
  35. enterBook
  36. CopyToClpbrd
  37. writeToDisk
  38. enterBook
  39. sizeToPage
  40. &Utilities
  41. Copy to clpbrd
  42. Utilities
  43. Write to disk
  44. Utilities
  45. TBKGLVAR.DLL
  46. SetGlobalVar
  47. GetGlobalVar
  48. ClearAllGlobalVars
  49. GlobalVarCount
  50. DSize
  51. GetGlobalVar
  52. dlgBox
  53. leaveBook
  54. CopyToClpbrd
  55. dlgBox
  56. writeToDisk
  57. Enter name of disk file:
  58. dirlist.txt
  59. no such file
  60. File 
  61.  exists! Overwrite?
  62. dlgbox
  63. errorBin
  64. fname
  65. System
  66. `D|D|
  67. radio targ
  68. 4rDrive
  69. 29,22,771,578
  70. sizetoPage
  71. CopyRightNotice
  72. radio
  73. enterPage
  74. radio
  75. rDrive
  76. enterPage
  77. sizetoPage
  78. CopyRightNotice
  79. :PHYSSIZE
  80. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp
  81. wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp
  82. --Directory List Script
  83. --Doug Overmyer
  84. --12/90
  85. dlgBox
  86. Drive " & gDrive 
  87. radio_group \
  88. & ":" 
  89. dlgTitle
  90. X"TBKGLVAR.DLL"
  91. SetGlobalVar(STRING,
  92.  GetGlobalVar(
  93. ClearAllGlobalVars()
  94. GlobalVarCount()
  95. Z"DSize",1)
  96. svfname 
  97. nvStatus 
  98. <> 2 
  99. n < 10
  100. drive 
  101. clusterSize 
  102. ClusterSize \
  103.  "toolbook" 
  104. MsvFname
  105. dirList 
  106. dlgbox
  107. sysSuspendMessages 
  108. P;" & \
  109. buttonUP
  110. buttonUp
  111. buttonUp
  112.     Size   Directory    Drive 
  113. gDrive
  114. TBKGLVAR.DLL
  115. SetGlobalVar
  116. GetGlobalVar
  117. ClearAllGlobalVars
  118. GlobalVarCount
  119. DSize
  120. SetGlobalVar
  121. DSize
  122. GetGlobalVar
  123. set text of field drive to 
  124. gDrive
  125. ;set text of field clusterSize to 
  126. toolbook
  127. svFname
  128. toolbook
  129. svFname
  130. dlgbox
  131. set sysChangesDB to false;set sysSuspendMessages to true;
  132. send exit
  133. toolbook
  134. svFname
  135. DSize
  136. SetGlobalVar
  137. dirList
  138. ClusterSize
  139. nvStatus
  140. svfname
  141. dlgTitle
  142. radio_group
  143. dlgBox
  144. status
  145. false
  146. DirSize
  147. radio_group
  148. radio targ
  149. 4gDrive
  150. status 
  151. ] <> other
  152. ("Enter drive letter:" 
  153. state
  154. Zcheck_pointer
  155. statuS
  156. radio
  157. status
  158. status
  159. radio
  160. status
  161. status
  162. status
  163. gDrive
  164. Enter drive letter:
  165. gDrive
  166. other
  167. gDrive
  168. status
  169. check_pointer
  170. state
  171. status
  172. check_pointer
  173. gDrive
  174. radio 
  175. buttonUp
  176. buttonUp
  177. radio
  178. Drive C
  179. radio 
  180. buttonUp
  181. buttonUp
  182. radio
  183. Drive E
  184. radio 
  185. buttonUp
  186. buttonUp
  187. radio
  188. Drive D
  189. radio 
  190. buttonUp
  191. buttonUp
  192. radio
  193. Drive F
  194. radio 
  195. buttonUp
  196. buttonUp
  197. radio
  198. Drive G
  199. Other
  200. radio 
  201. buttonUp
  202. buttonUp
  203. radio
  204. Other
  205. Custer size
  206. HelpScreen 
  207. buttonDown
  208. buttonDown
  209. HelpScreen
  210. HelpScreen
  211. rightButtonUP
  212. uttonDown
  213. buttonUp
  214. buttonDown
  215. rightButtonUP
  216. buttonDown
  217. HelpScreen
  218. buttonUp
  219. HelpScreen
  220. rightButtonUP
  221. HelpScreen
  222. TBK Directory Sizer
  223. ClusterSize
  224. 2048.ng on...
  225. copyRightNotice 
  226. buttonDown
  227. buttonDown
  228. copyRightNotice
  229. DlgTitle
  230.     Size   Directory    Drive C:\
  231. DlgBox
  232. copyrightNotice
  233. /location
  234. TBK Directory Sizer
  235. Release 1.2
  236. Copyright 1990 by
  237. Doug Overmyer
  238. San Pedro Graphics
  239. Berkeley, CA 947077
  240. HelpScreen
  241. Directory Sizer
  242. To get the space occupied by files on a drive, select a drive letter from the drive buttons and click "DirSize". 
  243. You might also check the field in the lower left corner. It gives the cluster size(bytes) used to compute the disk space used by a given file. Usually it is 2048. You can enter a different factor if needed....
  244. --Directory Size Script
  245. --Doug Overmyer
  246. --12/90
  247. 100,100,700,300
  248. X"TBKGLVAR.DLL"
  249. SetGlobalVar(STRING,
  250.  GetGlobalVar(
  251. ClearAllGlobalVars()
  252. GlobalVarCount()
  253. setGlobalVar("DSize",2)
  254. Mwhat
  255. 4vDirStack,vNextLevel,vFileSizeList,vdirList,vFilList
  256. Z vSumFileSize,vCurDir,vCurFile,vFileCount,vDrive, vFileSizeTotal
  257. ZvTimeStart,vTimeEnd,vClusterSize
  258. linkDLL "tbkfile.dll"
  259.  getFileList
  260.  getCurrentDirectory (
  261. setCurrentDirectory (
  262.  getFileAttributes
  263.  getCurrentDrive
  264. setCurrentDrive
  265.  getDriveList
  266. getFileSize
  267. getFreeDiskSpace
  268. LinkDLL
  269.  sortList(
  270. dlgBox 
  271. vFilesizeList 
  272. getDriveLetter (
  273.  & ":")
  274. "Please specify a drive letter 
  275. fyour directory"
  276. default
  277.  &":\")
  278. vDirList 
  279. (vdrive & ":")
  280. ') > 0
  281. msgBox
  282. N& "\*.*") 
  283.  = "."
  284. ) > 0
  285. & "\" & 
  286. )+1)* 
  287. --adj 
  288.  cluster allocation
  289. & " " & 
  290. vdirStack
  291. "Sorting directories" 
  292. "Building display" 
  293. /1024 
  294.  & TAB & 
  295.  & CRLF 
  296.  & ":
  297.  count:" & 
  298. vFreeSpace 
  299. )/1024
  300.  & ":
  301. free 
  302. :" & (
  303.  & ":
  304. :" & (
  305. "Elapsed 
  306. I:" & (
  307. ) & " 
  308. unlinkDLL "
  309. tbksort.
  310. P"OK"
  311. fPath
  312. enterPage
  313. remoteGet
  314. getDriveLetter
  315. enterPage
  316. TBKGLVAR.DLL
  317. SetGlobalVar
  318. GetGlobalVar
  319. ClearAllGlobalVars
  320. GlobalVarCount
  321. DSize
  322. setGlobalVar
  323. remoteGet
  324. tbkfile.dll
  325. getFileList
  326. getCurrentDirectory
  327. setCurrentDirectory
  328. getFileAttributes
  329. getCurrentDrive
  330. setCurrentDrive
  331. getDriveList
  332. getFileSize
  333. getFreeDiskSpace
  334. tbksort.dll
  335. sortList
  336. vFilesizeList
  337. getDriveLetter
  338. Please specify a drive letter with your directory
  339. setCurrentDirectory
  340. vDirList
  341. vdrive
  342. vDirList
  343. vDirList
  344. vDirList
  345. vDirList
  346. getFileList
  347. vDirList
  348. getFileAttributes
  349. getFileSize
  350. vDirList
  351. vdirStack
  352. vDirList
  353. vDirList
  354. Sorting directories
  355. sortList
  356. vDirList
  357. Building display
  358. vDirList
  359. vDirList
  360. #####0K
  361. vDirList
  362. :  file count:
  363. getFreeDiskSpace
  364. #####0K
  365. :  free space:
  366. #####0K
  367. :  file space:
  368. seconds
  369. seconds
  370. Elapsed time:
  371.  seconds
  372. tbkfile.dll
  373. tbksort.dll
  374. vFreeSpace
  375. msgBox
  376. default
  377. Drive
  378. ClusterSize
  379. dlgBox
  380. vTimeStart
  381. vTimeEnd
  382. vClusterSize
  383. vSumFileSize
  384. vCurDir
  385. vCurFile
  386. vFileCount
  387. vDrive
  388. vFileSizeTotal
  389. vDirStack
  390. vNextLevel
  391. vFileSizeList
  392. vdirList
  393. vFilList
  394. getDriveLetter
  395. getDriveList
  396. fPath
  397. t    t    t    
  398. Working on...
  399. msgBox
  400. status
  401. false
  402.  uilding displayiesCBT
  403. buttonUp
  404. buttonUp
  405. sizeToPage
  406. author
  407. Drive
  408. clusterSize
  409. 20489
  410. dlgBox
  411.      2K    F:
  412.    186K    F:\ALM
  413.    668K    F:\DODOT
  414.    690K    F:\EXCEL
  415.     38K    F:\EXCEL\BALIS
  416.     90K    F:\EXCEL\GRAF
  417.     42K    F:\EXCEL\USER
  418.   6130K    F:\FOCUS
  419.     54K    F:\FOCUS\TUTORIAL
  420.   1206K    F:\FS
  421.    856K    F:\TBOOK
  422.   1914K    F:\TOOLBOOK
  423.    724K    F:\TOOLBOOK\GRF
  424.   1660K    F:\TOOLBOOK\TBK
  425.   2150K    F:\TOOLBOOK\UTIL
  426.   3278K    F:\WINWORD
  427.    454K    F:\WINWORD\LIBRARY
  428.    106K    F:\WINWORD\PCLFONTS
  429.   1160K    F:\WINWORD\WINWORD.CBT
  430. F:  file count:611
  431. F:  free space: 11228K
  432. F:  file space: 21408K
  433. Elapsed time:16 seconds
  434. B    lB@
  435.