home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Enigma_X18288312132004.psc / Source / dir.bas < prev    next >
Encoding:
BASIC Source File  |  2004-12-13  |  13.4 KB  |  235 lines
  1. Attribute VB_Name = "dir"
  2. Option Explicit 'Makes sure all the variables are declared
  3.  
  4. '**********************************************************************************
  5. 'This module contains all the code for the dir command. ie "dir documents" etc.
  6. 'I put it in here to clean up the code on the frmGame a bit :-)
  7. '**********************************************************************************
  8.  
  9.  
  10. 'They want to browse the C:\ of the Home Computer
  11. Public Sub DirHome()
  12.     CalcFreeSpace 'Get the free space on the hard drive
  13.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  14.     If HDDName = "" Then
  15.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  16.     Else
  17.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  18.     End If
  19.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  20.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  21.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Documents     <DIR>" & vbCrLf
  22.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Downloads     <DIR>" & vbCrLf
  23.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Help          <DIR>" & vbCrLf
  24.     If IsHomeReadmeDel = False Then frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Readme.txt    223 bytes" & vbCrLf
  25.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Software      <DIR>" & vbCrLf
  26.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "System        <DIR>" & vbCrLf
  27.     If IsHomeReadmeDel = False Then
  28.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 File(s)     223 bytes" & vbCrLf
  29.     Else
  30.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     0 File(s)     0 bytes" & vbCrLf
  31.     End If
  32.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     5 Dir(s)      " & Result & " bytes free" & vbCrLf
  33.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  34.                     
  35.     Exit Sub 'Ends the Current Sub
  36. End Sub
  37.  
  38.  
  39. 'They want to browse the C:\Documents\ folder on the Home Computer
  40. Public Sub DirHomeDocuments()
  41.     CalcFreeSpace 'Get the free space on the hard drive
  42.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  43.     If HDDName = "" Then
  44.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  45.     Else
  46.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  47.     End If
  48.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  49.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  50.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  51.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Images        <DIR>" & vbCrLf
  52.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Recieved      <DIR>" & vbCrLf
  53.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     0 File(s)     0 bytes" & vbCrLf
  54.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     3 Dir(s)      " & Result & " bytes free" & vbCrLf
  55.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  56.     Exit Sub 'Ends the Current Sub
  57. End Sub
  58.  
  59.  
  60. 'They want to browse the C:\Documents\Recieved\ folder on the Home Computer
  61. Public Sub DirHomeDocRecieved()
  62.     CalcFreeSpace 'Get the free space on the hard drive
  63.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  64.     If HDDName = "" Then
  65.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  66.     Else
  67.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  68.     End If
  69.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  70.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  71.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  72.     If IsHomeDocRecReadmeDel = False Then frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Readme.txt    256 bytes" & vbCrLf
  73.     If IsHomeDocRecReadmeDel = False Then
  74.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 File(s)     256 bytes" & vbCrLf
  75.     Else
  76.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     0 File(s)     0 bytes" & vbCrLf
  77.     End If
  78.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  79.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  80.     Exit Sub 'Exits the Sub
  81. End Sub
  82.  
  83.  
  84. 'They want to browse the C:\Documents\Images\ folder on the Home Computer
  85. Public Sub DirHomeDocImages()
  86.     CalcFreeSpace
  87.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  88.     If HDDName = "" Then
  89.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  90.     Else
  91.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  92.     End If
  93.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  94.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  95.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  96.     If IsHomeDocImgTestDel = False Then frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Test.jpg      3,520 bytes" & vbCrLf
  97.     If IsHomeDocImgTestDel = False Then
  98.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 File(s)     3,520 bytes" & vbCrLf
  99.     Else
  100.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     0 File(s)     0 bytes" & vbCrLf
  101.     End If
  102.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  103.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  104.     Exit Sub 'Exits the Sub
  105. End Sub
  106.  
  107.  
  108. 'They want to browse the C:\Downloads\ folder on the Home Computer
  109. Public Sub DirHomeDownloads()
  110.     CalcFreeSpace
  111.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  112.     If HDDName = "" Then
  113.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  114.     Else
  115.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  116.     End If
  117.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  118.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  119.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  120.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  121.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  122.     Exit Sub 'Exits the Sub
  123. End Sub
  124.  
  125.  
  126. 'They want to browse the C:\System\ folder on the Home Computer
  127. Public Sub DirHomeSystem()
  128.     CalcFreeSpace
  129.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  130.     If HDDName = "" Then
  131.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  132.     Else
  133.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  134.     End If
  135.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  136.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  137.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  138.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Boot          <DIR>" & vbCrLf
  139.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Cls.exe       6,594 bytes" & vbCrLf
  140.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Commands.exe  45,379 bytes" & vbCrLf
  141.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Del.exe       14,144 bytes" & vbCrLf
  142.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Deltree.exe   19,083 bytes" & vbCrLf
  143.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Kernel        <DIR>" & vbCrLf
  144.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "View.exe      45,056 bytes" & vbCrLf
  145.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     5 File(s)     130,256 bytes" & vbCrLf
  146.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     2 Dir(s)      " & Result & " bytes free" & vbCrLf
  147.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  148.     Exit Sub 'Exits the Sub
  149. End Sub
  150.  
  151.  
  152. 'They want to browse the C:\System\Boot\ folder on the Home Computer
  153. Public Sub DirHomeSysBoot()
  154.     CalcFreeSpace
  155.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  156.     If HDDName = "" Then
  157.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  158.     Else
  159.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  160.     End If
  161.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  162.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  163.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  164.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Boot.ini      211 bytes" & vbCrLf
  165.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "User.dat      225,312 bytes" & vbCrLf
  166.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "System.dat    2,932,768 bytes" & vbCrLf
  167.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     3 File(s)     3,158,291 bytes" & vbCrLf
  168.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  169.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  170.     
  171.     Exit Sub 'Exits the Sub
  172. End Sub
  173.  
  174.  
  175. 'They want to browse the C:\System\Kernel\ folder on the Home Computer
  176. Public Sub DirHomeSysKernel()
  177.     CalcFreeSpace
  178.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  179.     If HDDName = "" Then
  180.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  181.     Else
  182.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  183.     End If
  184.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  185.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  186.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  187.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Kernel.sys    79,691,776 bytes" & vbCrLf
  188.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 File(s)     79,691,776 bytes" & vbCrLf
  189.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  190.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  191.     
  192.     Exit Sub 'Exits the Sub
  193. End Sub
  194.  
  195.  
  196. 'They want to browse the C:\Help\ folder on the Home Computer
  197. Public Sub DirHomeHelp()
  198.     CalcFreeSpace
  199.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  200.     If HDDName = "" Then
  201.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  202.     Else
  203.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  204.     End If
  205.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  206.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  207.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  208.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Help.hlp    1,125,888 bytes" & vbCrLf
  209.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 File(s)     1,125,888 bytes" & vbCrLf
  210.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  211.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  212.     
  213.     Exit Sub 'Exits the Sub
  214. End Sub
  215.  
  216.  
  217. 'They want to browse the C:\Software\ folder on the Home Computer
  218. Public Sub DirHomeSoftware()
  219.     CalcFreeSpace
  220.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "dir" & vbCrLf
  221.     If HDDName = "" Then
  222.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C has no name" & vbCrLf
  223.     Else
  224.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Drive C is " & HDDName & vbCrLf
  225.     End If
  226.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Volume Serial Number is " & HDDSerialNo & vbCrLf & vbCrLf
  227.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Directory of " & Lvl & vbCrLf & vbCrLf
  228.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "..            <DIR>" & vbCrLf
  229.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     0 File(s)     0 bytes" & vbCrLf
  230.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & "     1 Dir(s)      " & Result & " bytes free" & vbCrLf
  231.     frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  232.     
  233.     Exit Sub 'Exits the Sub
  234. End Sub
  235.