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 / deltree.bas < prev    next >
BASIC Source File  |  2004-12-12  |  12KB  |  232 lines
  1. Attribute VB_Name = "deltree"
  2. Option Explicit 'Makes sure all the variables are declared
  3.  
  4. '**********************************************************************************
  5. 'This module contains all the code for the deltree command. ie "deltree documents" etc.
  6. 'I put it in here to clean up the code on the frmGame a bit :-)
  7. '**********************************************************************************
  8.  
  9. 'They want to delete the Documents folder and all its contents
  10. Public Sub DeltreeHomeDocuments()
  11.     GetLevel 'Where are they?
  12.     If Disconnected = False Then
  13.         Select Case Level
  14.             Case "home" 'If they are in the C:\ folder
  15.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree documents" & vbCrLf
  16.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  17.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Documents is a System Directory and Cannot be Deleted" & vbCrLf
  18.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  19.                 Exit Sub
  20.  
  21.         End Select
  22.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree documents" & vbCrLf
  23.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Documents" & vbCrLf
  24.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  25.         Exit Sub
  26.  
  27.     Else 'The Computer is disconnected
  28.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  29.     End If
  30.     Exit Sub 'Exits the Sub :)
  31. End Sub
  32.  
  33.  
  34. 'They want to delete the Images folder in the Documents folder and all its contents
  35. Public Sub DeltreeHomeDocImages()
  36.     GetLevel 'Where are they?
  37.     If Disconnected = False Then
  38.         Select Case Level
  39.             Case "documents" 'If they are in the C:\Documents folder
  40.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree images" & vbCrLf
  41.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  42.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Images is a System Directory and Cannot be Deleted" & vbCrLf
  43.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  44.                 Exit Sub
  45.  
  46.         End Select
  47.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree images" & vbCrLf
  48.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Images" & vbCrLf
  49.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  50.         Exit Sub
  51.  
  52.     Else 'The Computer is disconnected
  53.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  54.     End If
  55.     Exit Sub 'Exits the Sub :)
  56. End Sub
  57.  
  58.  
  59. 'They want to delete the Recieved folder in the Documents folder and all its contents
  60. Public Sub DeltreeHomeDocRecieved()
  61.     GetLevel 'Where are they?
  62.     If Disconnected = False Then
  63.         Select Case Level
  64.             Case "documents" 'If they are in the C:\Documents\ folder
  65.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree recieved" & vbCrLf
  66.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  67.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Recieved is a System Directory and Cannot be Deleted" & vbCrLf
  68.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  69.                 Exit Sub
  70.  
  71.         End Select
  72.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree recieved" & vbCrLf
  73.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Recieved" & vbCrLf
  74.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  75.         Exit Sub
  76.  
  77.     Else 'The Computer is disconnected
  78.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  79.     End If
  80.     Exit Sub 'Exits the Sub :)
  81. End Sub
  82.  
  83.  
  84. 'They want to delete the Help folder and all its contents
  85. Public Sub DeltreeHomeHelp()
  86.     GetLevel 'Where are they?
  87.     If Disconnected = False Then
  88.         Select Case Level
  89.             Case "home" 'If they are in the C:\ folder
  90.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree help" & vbCrLf
  91.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  92.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Help is a System Directory and Cannot be Deleted" & vbCrLf
  93.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  94.                 Exit Sub
  95.  
  96.         End Select
  97.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree help" & vbCrLf
  98.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Help" & vbCrLf
  99.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  100.         Exit Sub
  101.  
  102.     Else 'The Computer is disconnected
  103.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  104.     End If
  105.     Exit Sub 'Exits the Sub :)
  106. End Sub
  107.  
  108.  
  109. 'They want to delete the Software folder and all its contents
  110. Public Sub DeltreeHomeSoftware()
  111.     GetLevel 'Where are they?
  112.     If Disconnected = False Then
  113.         Select Case Level
  114.             Case "home" 'If they are in the C:\ folder
  115.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree software" & vbCrLf
  116.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  117.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Software is a System Directory and Cannot be Deleted" & vbCrLf
  118.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  119.                 Exit Sub
  120.  
  121.         End Select
  122.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree software" & vbCrLf
  123.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Software" & vbCrLf
  124.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  125.         Exit Sub
  126.  
  127.     Else 'The Computer is disconnected
  128.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  129.     End If
  130.     Exit Sub 'Exits the Sub :)
  131. End Sub
  132.  
  133.  
  134. 'They want to delete the Downloads folder and all its contents
  135. Public Sub DeltreeHomeDownloads()
  136.     GetLevel 'Where are they?
  137.     If Disconnected = False Then
  138.         Select Case Level
  139.             Case "home" 'If they are in the C:\ folder
  140.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree downloads" & vbCrLf
  141.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  142.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Downloads is a System Directory and Cannot be Deleted" & vbCrLf
  143.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  144.                 Exit Sub
  145.  
  146.         End Select
  147.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree downloads" & vbCrLf
  148.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Downloads" & vbCrLf
  149.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  150.         Exit Sub
  151.  
  152.     Else 'The Computer is disconnected
  153.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  154.     End If
  155.     Exit Sub 'Exits the Sub :)
  156. End Sub
  157.  
  158.  
  159. 'They want to delete the System folder and all its contents
  160. Public Sub DeltreeHomeSystem()
  161.     GetLevel 'Where are they?
  162.     If Disconnected = False Then
  163.         Select Case Level
  164.             Case "home" 'If they are in the C:\ folder
  165.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree system" & vbCrLf
  166.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  167.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "System is a System Directory and Cannot be Deleted" & vbCrLf
  168.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  169.                 Exit Sub
  170.  
  171.         End Select
  172.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree system" & vbCrLf
  173.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "System" & vbCrLf
  174.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  175.         Exit Sub
  176.  
  177.     Else 'The Computer is disconnected
  178.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  179.     End If
  180.     Exit Sub 'Exits the Sub :)
  181. End Sub
  182.  
  183.  
  184. 'They want to delete the Boot folder in the System Directory and all its contents
  185. Public Sub DeltreeHomeSysBoot()
  186.     GetLevel 'Where are they?
  187.     If Disconnected = False Then
  188.         Select Case Level
  189.             Case "homesystem" 'If they are in the C:\System folder
  190.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree boot" & vbCrLf
  191.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  192.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Boot is a System Directory and Cannot be Deleted" & vbCrLf
  193.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  194.                 Exit Sub
  195.  
  196.         End Select
  197.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree boot" & vbCrLf
  198.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Boot" & vbCrLf
  199.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  200.         Exit Sub
  201.  
  202.     Else 'The Computer is disconnected
  203.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  204.     End If
  205.     Exit Sub 'Exits the Sub :)
  206. End Sub
  207.  
  208.  
  209. 'They want to delete the Kernel folder in the System Directory and all its contents
  210. Public Sub DeltreeHomeSysKernel()
  211.     GetLevel 'Where are they?
  212.     If Disconnected = False Then
  213.         Select Case Level
  214.             Case "homesystem" 'If they are in the C:\System\ folder
  215.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree kernel" & vbCrLf
  216.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Access is Denied" & vbCrLf
  217.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Kernel is a System Directory and Cannot be Deleted" & vbCrLf
  218.                 frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  219.                 Exit Sub
  220.  
  221.         End Select
  222.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "deltree kernel" & vbCrLf
  223.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Kernel" & vbCrLf
  224.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  225.         Exit Sub
  226.  
  227.     Else 'The Computer is disconnected
  228.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  229.     End If
  230.     Exit Sub 'Exits the Sub :)
  231. End Sub
  232.