开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 系统编程 > 查看源码
Form1.vb
资源名称：HideFolders.zip　[点击查看]
上传用户：websnack
上传日期：2022-08-01
资源大小：53k
文件大小：29k
源码类别：

系统编程

开发平台：

Visual C++

Form1.vb：源码内容
  1. Imports System.IO
  2. Public Class Form1
  3.     Inherits System.Windows.Forms.Form
  5. #Region " Windows Form Designer generated code "
  7.     Public Sub New()
  8.         MyBase.New()
  10.         'This call is required by the Windows Form Designer.
  11.         InitializeComponent()
  13.         'Add any initialization after the InitializeComponent() call
  15.     End Sub
  17.     'Form overrides dispose to clean up the component list.
  18.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  19.         If disposing Then
  20.             If Not (components Is Nothing) Then
  21.                 components.Dispose()
  22.             End If
  23.         End If
  24.         MyBase.Dispose(disposing)
  25.     End Sub
  27.     'Required by the Windows Form Designer
  28.     Private components As System.ComponentModel.IContainer
  30.     'NOTE: The following procedure is required by the Windows Form Designer
  31.     'It can be modified using the Windows Form Designer.  
  32.     'Do not modify it using the code editor.
  33.     Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  34.     Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
  35.     Friend WithEvents Label1 As System.Windows.Forms.Label
  36.     Friend WithEvents Label2 As System.Windows.Forms.Label
  37.     Friend WithEvents Button1 As System.Windows.Forms.Button
  38.     Friend WithEvents Button2 As System.Windows.Forms.Button
  39.     Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
  40.     Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
  41.     Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
  42.     Friend WithEvents Button5 As System.Windows.Forms.Button
  43.     Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
  44.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  45.     Friend WithEvents Label3 As System.Windows.Forms.Label
  46.     Friend WithEvents Label4 As System.Windows.Forms.Label
  47.     Friend WithEvents Button6 As System.Windows.Forms.Button
  48.     Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
  49.     Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
  50.     Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
  51.     Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
  52.     Friend WithEvents Label5 As System.Windows.Forms.Label
  53.     Friend WithEvents Label6 As System.Windows.Forms.Label
  54.     Friend WithEvents Label7 As System.Windows.Forms.Label
  55.     Friend WithEvents Button7 As System.Windows.Forms.Button
  56.     Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
  57.     Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  58.     Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
  59.     Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
  60.     Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
  61.     Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
  62.     Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
  63.     Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu
  64.     Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
  65.     Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
  66.     Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
  67.     Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
  68.     Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
  69.     Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
  70.     Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
  71.     Friend WithEvents UserControl11 As Show.UserControl1
  72.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  73.         Me.ListBox1 = New System.Windows.Forms.ListBox()
  74.         Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
  75.         Me.MenuItem5 = New System.Windows.Forms.MenuItem()
  76.         Me.MenuItem7 = New System.Windows.Forms.MenuItem()
  77.         Me.MenuItem9 = New System.Windows.Forms.MenuItem()
  78.         Me.MenuItem11 = New System.Windows.Forms.MenuItem()
  79.         Me.ListBox2 = New System.Windows.Forms.ListBox()
  80.         Me.ContextMenu3 = New System.Windows.Forms.ContextMenu()
  81.         Me.MenuItem6 = New System.Windows.Forms.MenuItem()
  82.         Me.MenuItem8 = New System.Windows.Forms.MenuItem()
  83.         Me.MenuItem10 = New System.Windows.Forms.MenuItem()
  84.         Me.MenuItem12 = New System.Windows.Forms.MenuItem()
  85.         Me.Label1 = New System.Windows.Forms.Label()
  86.         Me.Label2 = New System.Windows.Forms.Label()
  87.         Me.Button1 = New System.Windows.Forms.Button()
  88.         Me.Button2 = New System.Windows.Forms.Button()
  89.         Me.TabControl1 = New System.Windows.Forms.TabControl()
  90.         Me.TabPage1 = New System.Windows.Forms.TabPage()
  91.         Me.Button5 = New System.Windows.Forms.Button()
  92.         Me.TextBox2 = New System.Windows.Forms.TextBox()
  93.         Me.TextBox1 = New System.Windows.Forms.TextBox()
  94.         Me.Label3 = New System.Windows.Forms.Label()
  95.         Me.Label4 = New System.Windows.Forms.Label()
  96.         Me.Button6 = New System.Windows.Forms.Button()
  97.         Me.UserControl11 = New Show.UserControl1()
  98.         Me.TabPage2 = New System.Windows.Forms.TabPage()
  99.         Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
  100.         Me.MenuItem1 = New System.Windows.Forms.MenuItem()
  101.         Me.MenuItem2 = New System.Windows.Forms.MenuItem()
  102.         Me.MenuItem3 = New System.Windows.Forms.MenuItem()
  103.         Me.MenuItem4 = New System.Windows.Forms.MenuItem()
  104.         Me.TabPage3 = New System.Windows.Forms.TabPage()
  105.         Me.Button7 = New System.Windows.Forms.Button()
  106.         Me.Label5 = New System.Windows.Forms.Label()
  107.         Me.TextBox3 = New System.Windows.Forms.TextBox()
  108.         Me.Label6 = New System.Windows.Forms.Label()
  109.         Me.TextBox4 = New System.Windows.Forms.TextBox()
  110.         Me.Label7 = New System.Windows.Forms.Label()
  111.         Me.TextBox5 = New System.Windows.Forms.TextBox()
  112.         Me.TabControl1.SuspendLayout()
  113.         Me.TabPage1.SuspendLayout()
  114.         Me.TabPage2.SuspendLayout()
  115.         Me.TabPage3.SuspendLayout()
  116.         Me.SuspendLayout()
  117.         '
  118.         'ListBox1
  119.         '
  120.         Me.ListBox1.ContextMenu = Me.ContextMenu2
  121.         Me.ListBox1.Location = New System.Drawing.Point(8, 40)
  122.         Me.ListBox1.Name = "ListBox1"
  123.         Me.ListBox1.Size = New System.Drawing.Size(112, 160)
  124.         Me.ListBox1.Sorted = True
  125.         Me.ListBox1.TabIndex = 0
  126.         '
  127.         'ContextMenu2
  128.         '
  129.         Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem7, Me.MenuItem9, Me.MenuItem11})
  130.         '
  131.         'MenuItem5
  132.         '
  133.         Me.MenuItem5.Index = 0
  134.         Me.MenuItem5.Text = "Delete"
  135.         '
  136.         'MenuItem7
  137.         '
  138.         Me.MenuItem7.Index = 1
  139.         Me.MenuItem7.Text = "Hide"
  140.         '
  141.         'MenuItem9
  142.         '
  143.         Me.MenuItem9.Index = 2
  144.         Me.MenuItem9.Text = "Open"
  145.         '
  146.         'MenuItem11
  147.         '
  148.         Me.MenuItem11.Index = 3
  149.         Me.MenuItem11.Text = "Rename"
  150.         '
  151.         'ListBox2
  152.         '
  153.         Me.ListBox2.ContextMenu = Me.ContextMenu3
  154.         Me.ListBox2.Location = New System.Drawing.Point(160, 40)
  155.         Me.ListBox2.Name = "ListBox2"
  156.         Me.ListBox2.Size = New System.Drawing.Size(112, 160)
  157.         Me.ListBox2.Sorted = True
  158.         Me.ListBox2.TabIndex = 1
  159.         '
  160.         'ContextMenu3
  161.         '
  162.         Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6, Me.MenuItem8, Me.MenuItem10, Me.MenuItem12})
  163.         '
  164.         'MenuItem6
  165.         '
  166.         Me.MenuItem6.Index = 0
  167.         Me.MenuItem6.Text = "Delete"
  168.         '
  169.         'MenuItem8
  170.         '
  171.         Me.MenuItem8.Index = 1
  172.         Me.MenuItem8.Text = "Show"
  173.         '
  174.         'MenuItem10
  175.         '
  176.         Me.MenuItem10.Index = 2
  177.         Me.MenuItem10.Text = "Open"
  178.         '
  179.         'MenuItem12
  180.         '
  181.         Me.MenuItem12.Index = 3
  182.         Me.MenuItem12.Text = "Rename"
  183.         '
  184.         'Label1
  185.         '
  186.         Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  187.         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  188.         Me.Label1.Location = New System.Drawing.Point(8, 8)
  189.         Me.Label1.Name = "Label1"
  190.         Me.Label1.Size = New System.Drawing.Size(112, 24)
  191.         Me.Label1.TabIndex = 2
  192.         Me.Label1.Text = "Visible"
  193.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  194.         '
  195.         'Label2
  196.         '
  197.         Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  198.         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  199.         Me.Label2.Location = New System.Drawing.Point(160, 8)
  200.         Me.Label2.Name = "Label2"
  201.         Me.Label2.Size = New System.Drawing.Size(112, 24)
  202.         Me.Label2.TabIndex = 3
  203.         Me.Label2.Text = "Hidden"
  204.         Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  205.         '
  206.         'Button1
  207.         '
  208.         Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  209.         Me.Button1.Location = New System.Drawing.Point(128, 72)
  210.         Me.Button1.Name = "Button1"
  211.         Me.Button1.Size = New System.Drawing.Size(24, 24)
  212.         Me.Button1.TabIndex = 4
  213.         Me.Button1.Text = "<"
  214.         '
  215.         'Button2
  216.         '
  217.         Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  218.         Me.Button2.Location = New System.Drawing.Point(128, 136)
  219.         Me.Button2.Name = "Button2"
  220.         Me.Button2.Size = New System.Drawing.Size(24, 24)
  221.         Me.Button2.TabIndex = 5
  222.         Me.Button2.Text = ">"
  223.         '
  224.         'TabControl1
  225.         '
  226.         Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2, Me.TabPage3})
  227.         Me.TabControl1.HotTrack = True
  228.         Me.TabControl1.ImeMode = System.Windows.Forms.ImeMode.On
  229.         Me.TabControl1.Location = New System.Drawing.Point(8, 8)
  230.         Me.TabControl1.Name = "TabControl1"
  231.         Me.TabControl1.SelectedIndex = 0
  232.         Me.TabControl1.Size = New System.Drawing.Size(288, 240)
  233.         Me.TabControl1.TabIndex = 8
  234.         '
  235.         'TabPage1
  236.         '
  237.         Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button5, Me.TextBox2, Me.TextBox1, Me.Label3, Me.Label4, Me.Button6, Me.UserControl11})
  238.         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
  239.         Me.TabPage1.Name = "TabPage1"
  240.         Me.TabPage1.Size = New System.Drawing.Size(280, 214)
  241.         Me.TabPage1.TabIndex = 0
  242.         Me.TabPage1.Text = "LogIn"
  243.         '
  244.         'Button5
  245.         '
  246.         Me.Button5.Location = New System.Drawing.Point(45, 121)
  247.         Me.Button5.Name = "Button5"
  248.         Me.Button5.Size = New System.Drawing.Size(88, 24)
  249.         Me.Button5.TabIndex = 13
  250.         Me.Button5.Text = "SignIn"
  251.         '
  252.         'TextBox2
  253.         '
  254.         Me.TextBox2.Location = New System.Drawing.Point(133, 89)
  255.         Me.TextBox2.Name = "TextBox2"
  256.         Me.TextBox2.PasswordChar = Microsoft.VisualBasic.ChrW(42)
  257.         Me.TextBox2.Size = New System.Drawing.Size(104, 20)
  258.         Me.TextBox2.TabIndex = 12
  259.         Me.TextBox2.Text = ""
  260.         '
  261.         'TextBox1
  262.         '
  263.         Me.TextBox1.Location = New System.Drawing.Point(133, 65)
  264.         Me.TextBox1.Name = "TextBox1"
  265.         Me.TextBox1.Size = New System.Drawing.Size(104, 20)
  266.         Me.TextBox1.TabIndex = 11
  267.         Me.TextBox1.Text = ""
  268.         '
  269.         'Label3
  270.         '
  271.         Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  272.         Me.Label3.Location = New System.Drawing.Point(45, 89)
  273.         Me.Label3.Name = "Label3"
  274.         Me.Label3.Size = New System.Drawing.Size(72, 16)
  275.         Me.Label3.TabIndex = 10
  276.         Me.Label3.Text = "Password"
  277.         '
  278.         'Label4
  279.         '
  280.         Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  281.         Me.Label4.Location = New System.Drawing.Point(45, 65)
  282.         Me.Label4.Name = "Label4"
  283.         Me.Label4.Size = New System.Drawing.Size(72, 16)
  284.         Me.Label4.TabIndex = 9
  285.         Me.Label4.Text = "UserName"
  286.         '
  287.         'Button6
  288.         '
  289.         Me.Button6.Location = New System.Drawing.Point(149, 121)
  290.         Me.Button6.Name = "Button6"
  291.         Me.Button6.Size = New System.Drawing.Size(88, 24)
  292.         Me.Button6.TabIndex = 14
  293.         Me.Button6.Text = "SignOut"
  294.         '
  295.         'UserControl11
  296.         '
  297.         Me.UserControl11.Location = New System.Drawing.Point(26, 56)
  298.         Me.UserControl11.Name = "UserControl11"
  299.         Me.UserControl11.Size = New System.Drawing.Size(232, 104)
  300.         Me.UserControl11.TabIndex = 15
  301.         '
  302.         'TabPage2
  303.         '
  304.         Me.TabPage2.ContextMenu = Me.ContextMenu1
  305.         Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.Label2, Me.ListBox2, Me.ListBox1, Me.Button1, Me.Button2})
  306.         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
  307.         Me.TabPage2.Name = "TabPage2"
  308.         Me.TabPage2.Size = New System.Drawing.Size(280, 214)
  309.         Me.TabPage2.TabIndex = 1
  310.         Me.TabPage2.Text = "Events"
  311.         '
  312.         'ContextMenu1
  313.         '
  314.         Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
  315.         '
  316.         'MenuItem1
  317.         '
  318.         Me.MenuItem1.Index = 0
  319.         Me.MenuItem1.Text = "Hide All"
  320.         '
  321.         'MenuItem2
  322.         '
  323.         Me.MenuItem2.Index = 1
  324.         Me.MenuItem2.Text = "Show All"
  325.         '
  326.         'MenuItem3
  327.         '
  328.         Me.MenuItem3.Index = 2
  329.         Me.MenuItem3.Text = "Refresh"
  330.         '
  331.         'MenuItem4
  332.         '
  333.         Me.MenuItem4.Index = 3
  334.         Me.MenuItem4.Text = "Exit"
  335.         '
  336.         'TabPage3
  337.         '
  338.         Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button7, Me.Label5, Me.TextBox3, Me.Label6, Me.TextBox4, Me.Label7, Me.TextBox5})
  339.         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
  340.         Me.TabPage3.Name = "TabPage3"
  341.         Me.TabPage3.Size = New System.Drawing.Size(280, 214)
  342.         Me.TabPage3.TabIndex = 2
  343.         Me.TabPage3.Text = "Directories"
  344.         '
  345.         'Button7
  346.         '
  347.         Me.Button7.Location = New System.Drawing.Point(96, 152)
  348.         Me.Button7.Name = "Button7"
  349.         Me.Button7.Size = New System.Drawing.Size(104, 24)
  350.         Me.Button7.TabIndex = 15
  351.         Me.Button7.Text = "Apply"
  352.         '
  353.         'Label5
  354.         '
  355.         Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  356.         Me.Label5.Location = New System.Drawing.Point(24, 40)
  357.         Me.Label5.Name = "Label5"
  358.         Me.Label5.Size = New System.Drawing.Size(80, 24)
  359.         Me.Label5.TabIndex = 12
  360.         Me.Label5.Text = "Base Directory"
  361.         Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  362.         '
  363.         'TextBox3
  364.         '
  365.         Me.TextBox3.Location = New System.Drawing.Point(122, 42)
  366.         Me.TextBox3.Name = "TextBox3"
  367.         Me.TextBox3.Size = New System.Drawing.Size(136, 20)
  368.         Me.TextBox3.TabIndex = 9
  369.         Me.TextBox3.Text = "misc"
  370.         '
  371.         'Label6
  372.         '
  373.         Me.Label6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  374.         Me.Label6.Location = New System.Drawing.Point(23, 72)
  375.         Me.Label6.Name = "Label6"
  376.         Me.Label6.Size = New System.Drawing.Size(80, 24)
  377.         Me.Label6.TabIndex = 13
  378.         Me.Label6.Text = "Recyler1"
  379.         Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  380.         '
  381.         'TextBox4
  382.         '
  383.         Me.TextBox4.Location = New System.Drawing.Point(121, 74)
  384.         Me.TextBox4.Name = "TextBox4"
  385.         Me.TextBox4.Size = New System.Drawing.Size(136, 20)
  386.         Me.TextBox4.TabIndex = 10
  387.         Me.TextBox4.Text = "Recycle Bin"
  388.         '
  389.         'Label7
  390.         '
  391.         Me.Label7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  392.         Me.Label7.Location = New System.Drawing.Point(23, 104)
  393.         Me.Label7.Name = "Label7"
  394.         Me.Label7.Size = New System.Drawing.Size(80, 24)
  395.         Me.Label7.TabIndex = 14
  396.         Me.Label7.Text = "Recyler2"
  397.         Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  398.         '
  399.         'TextBox5
  400.         '
  401.         Me.TextBox5.Location = New System.Drawing.Point(121, 106)
  402.         Me.TextBox5.Name = "TextBox5"
  403.         Me.TextBox5.Size = New System.Drawing.Size(136, 20)
  404.         Me.TextBox5.TabIndex = 11
  405.         Me.TextBox5.Text = "recylced"
  406.         '
  407.         'Form1
  408.         '
  409.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  410.         Me.BackColor = System.Drawing.Color.Gold
  411.         Me.ClientSize = New System.Drawing.Size(304, 254)
  412.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1})
  413.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  414.         Me.MaximizeBox = False
  415.         Me.Name = "Form1"
  416.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  417.         Me.Text = "Events Program"
  418.         Me.TabControl1.ResumeLayout(False)
  419.         Me.TabPage1.ResumeLayout(False)
  420.         Me.TabPage2.ResumeLayout(False)
  421.         Me.TabPage3.ResumeLayout(False)
  422.         Me.ResumeLayout(False)
  424.     End Sub
  426. #End Region
  427.     Dim currfldr, fldr As DirectoryInfo
  428.     Dim k As Directory
  429.     Dim n As String
  430.     Dim j As String
  431.     Dim j2 As String
  432.     Public Sub cr(ByVal path As String)
  433.         currfldr.Create()
  434.         currfldr.Attributes = FileAttributes.Hidden + FileAttributes.System
  435.         FileOpen(1, path & "Desktop.ini" _
  436.        , OpenMode.Output)
  437.         Print(1, "[.ShellClassInfo]" & vbCrLf & _
  438.         "CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
  439.         FileClose(1)
  440.     End Sub
  441.     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  442.         On Error Resume Next
  443.         elements(False)
  444.         TabPage2.Enabled = False
  445.     End Sub
  446.     Public Sub elements(ByVal s As Boolean)
  447.         Label1.Visible = s
  448.         Label2.Visible = s
  449.         ListBox1.Visible = s
  450.         ListBox2.Visible = s
  451.         Button1.Visible = s
  452.         Button2.Visible = s
  453.         Label5.Visible = s
  454.         Label6.Visible = s
  455.         Label7.Visible = s
  456.         TextBox3.Visible = s
  457.         TextBox4.Visible = s
  458.         TextBox5.Visible = s
  459.         Button7.Visible = s
  460.     End Sub
  462.     Public Sub fill()
  463.         n = New String(TextBox3.Text.ToLower)
  464.         j = New String(TextBox4.Text.ToLower)
  465.         j2 = New String(TextBox5.Text.ToLower)
  466.         currfldr = New DirectoryInfo(Application.StartupPath & "" & n)
  467.         If currfldr.Exists = False Then
  468.             currfldr.Create()
  469.             currfldr = New DirectoryInfo(Application.StartupPath & "" & n & "" & j)
  470.             cr(currfldr.FullName)
  471.             currfldr = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2)
  472.             cr(currfldr.FullName)
  473.         Else
  474.             currfldr = New DirectoryInfo(Application.StartupPath & "" & n & "" & j)
  475.             If currfldr.Exists = False Then
  477.                 cr(currfldr.FullName)
  478.                 currfldr = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2)
  479.                 cr(currfldr.FullName)
  480.             Else
  481.                 currfldr = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2)
  482.                 If currfldr.Exists = False Then
  483.                     currfldr.Create()
  484.                     currfldr.Attributes = FileAttributes.Hidden + FileAttributes.System
  485.                     FileOpen(1, Application.StartupPath & "" & n & "" & j & "" & j2 & "Desktop.ini" _
  486.                    , OpenMode.Output)
  487.                     Print(1, "[.ShellClassInfo]" & vbCrLf & _
  488.                     "CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
  489.                     FileClose(1)
  490.                 End If
  491.             End If
  492.         End If
  493.         currfldr = New DirectoryInfo(Application.StartupPath)
  494.         If currfldr.Exists Then
  495.             For Each fldr In currfldr.GetDirectories
  496.                 If fldr.Exists And fldr.Name.ToLower <> n.ToLower Then
  497.                     ListBox1.Items.Add(fldr.ToString)
  498.                 End If
  499.             Next fldr
  500.         End If
  501.         currfldr = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2)
  502.         If currfldr.Exists Then
  503.             For Each fldr In currfldr.GetDirectories
  504.                 If fldr.Exists Then
  505.                     ListBox2.Items.Add(fldr.ToString)
  506.                 Else : Exit Sub
  507.                 End If
  508.             Next fldr
  509.         End If
  510.     End Sub
  511.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  512.         If ListBox1.SelectedIndex >= 0 Then
  513.             Dim dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox1.SelectedItem)
  514.             If Not dir.Exists Then
  515.                 k.Move(Application.StartupPath & "" & ListBox1.SelectedItem, _
  516.                 Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox1.SelectedItem)
  517.                 ListBox2.Items.Add(ListBox1.SelectedItem)
  518.                 ListBox1.Items.Remove(ListBox1.SelectedItem)
  519.             Else
  520.                 MsgBox("Directory already exists in destination folder")
  521.             End If
  522.         End If
  523.     End Sub
  525.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  526.         If ListBox2.SelectedIndex >= 0 Then
  527.             Dim dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath & "" & ListBox2.SelectedItem)
  528.             If Not dir.Exists Then
  529.                 k.Move(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox2.SelectedItem, _
  530.                        Application.StartupPath & "" & ListBox2.SelectedItem)
  531.                 ListBox1.Items.Add(ListBox2.SelectedItem)
  532.                 ListBox2.Items.Remove(ListBox2.SelectedItem)
  533.             Else
  534.                 MsgBox("Directory already exists in destination folder")
  535.             End If
  536.         End If
  537.     End Sub
  542.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  543.         If TextBox1.Text = "Simon" And TextBox2.Text = "ShiPassword" Then
  544.             ListBox1.Items.Clear()
  545.             ListBox2.Items.Clear()
  546.             On Error Resume Next
  547.             elements(True)
  548.             TextBox1.Text = ""
  549.             TextBox2.Text = ""
  550.             fill()
  551.             TabPage2.Enabled = True
  552.             TabControl1.SelectedTab = TabPage2
  553.         End If
  554.     End Sub
  556.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  557.         elements(False)
  558.         ListBox1.Items.Clear()
  559.         ListBox2.Items.Clear()
  560.         TabPage2.Enabled = False
  561.     End Sub
  564.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  565.         ListBox1.Items.Clear()
  566.         ListBox2.Items.Clear()
  567.         fill()
  568.     End Sub
  570.     Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
  571.         Dim i, m As Integer
  572.         m = 0
  573.         Dim dir As DirectoryInfo
  574.         For i = 0 To ListBox1.Items.Count - 1
  575.             dir = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox1.Items.Item(m))
  576.             If Not dir.Exists Then
  577.                 k.Move(Application.StartupPath & "" & ListBox1.Items.Item(m), _
  578.                          Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox1.Items.Item(m))
  579.                 ListBox2.Items.Add(ListBox1.Items.Item(m))
  580.                 ListBox1.Items.Remove(ListBox1.Items.Item(m))
  581.             Else
  582.                 MsgBox("Directory " & ListBox1.Items.Item(m) & " already exists in destination folder")
  583.                 m += 1
  584.             End If
  585.         Next
  586.     End Sub
  588.     Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
  589.         Dim i, m As Integer
  590.         m = 0
  591.         Dim dir As DirectoryInfo
  592.         For i = 0 To ListBox2.Items.Count - 1
  593.             dir = New DirectoryInfo(Application.StartupPath & "" & ListBox2.Items.Item(m))
  594.             If Not dir.Exists Then
  595.                 k.Move(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox2.Items.Item(m), _
  596.                          Application.StartupPath & "" & ListBox2.Items.Item(m))
  597.                 ListBox1.Items.Add(ListBox2.Items.Item(m))
  598.                 ListBox2.Items.Remove(ListBox2.Items.Item(m))
  599.             Else
  600.                 MsgBox("Directory " & ListBox2.Items.Item(m) & " already exists in destination folder")
  601.                 m += 1
  602.             End If
  603.         Next
  604.     End Sub
  606.     Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
  607.         ListBox1.Items.Clear()
  608.         ListBox2.Items.Clear()
  609.         fill()
  610.     End Sub
  612.     Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
  613.         Me.Close()
  614.     End Sub
  617.     Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
  618.         If ListBox1.SelectedIndex >= 0 Then
  619.             Dim g As Integer
  620.             g = MsgBox("Are you sure you want to delete dirtctory " & ListBox1.SelectedItem, MsgBoxStyle.OKCancel, "Delete")
  621.             If g = 1 Then
  622.                 Dim h As DirectoryInfo
  623.                 h = New DirectoryInfo(Application.StartupPath & "" & ListBox1.SelectedItem)
  624.                 h.Delete(True)
  625.                 ListBox1.Items.Remove(ListBox1.SelectedItem)
  626.             End If
  627.         End If
  628.     End Sub
  630.     Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
  631.         If ListBox2.SelectedIndex >= 0 Then
  632.             Dim g As Integer
  633.             g = MsgBox("Are you sure you want to delete dirtctory " & ListBox2.SelectedItem, MsgBoxStyle.OKCancel, "Delete")
  634.             If g = 1 Then
  635.                 Dim h As DirectoryInfo
  636.                 h = New DirectoryInfo(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox2.SelectedItem)
  637.                 h.Delete(True)
  638.                 ListBox2.Items.Remove(ListBox2.SelectedItem)
  639.             End If
  640.         End If
  641.     End Sub
  643.     Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
  644.         Button2_Click(sender, e)
  645.     End Sub
  647.     Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
  648.         Button1_Click(sender, e)
  649.     End Sub
  651.     Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
  652.         If Application.StartupPath.Length = 3 Then
  653.             System.Diagnostics.Process.Start(Application.StartupPath & ListBox1.SelectedItem)
  654.         Else
  655.             System.Diagnostics.Process.Start(Application.StartupPath & "" & ListBox1.SelectedItem)
  656.         End If
  657.     End Sub
  659.     Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
  660.         If Application.StartupPath.Length = 3 Then
  661.             System.Diagnostics.Process.Start(Application.StartupPath & n & "" & j & "" & j2 & "" & ListBox2.SelectedItem)
  662.         Else
  663.             System.Diagnostics.Process.Start(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox2.SelectedItem)
  664.         End If
  666.     End Sub
  668.     Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
  669.         If ListBox1.SelectedIndex >= 0 Then
  670.             Dim k As String
  671.             k = InputBox("Enter new name", "Directory")
  672.             If k <> "" Then
  673.                 If Application.StartupPath.Length = 3 Then
  674.                     Directory.Move(Application.StartupPath & ListBox1.SelectedItem, _
  675.                     Application.StartupPath & k)
  676.                 Else
  677.                     Directory.Move(Application.StartupPath & "" & ListBox1.SelectedItem, _
  678.                     Application.StartupPath & "" & k)
  679.                 End If
  680.             End If
  681.         End If
  682.     End Sub
  684.     Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
  685.         If ListBox2.SelectedIndex >= 0 Then
  686.             Dim k As String
  687.             k = InputBox("Enter new name", "Directory")
  688.             If k <> "" Then
  689.                 Directory.Move(Application.StartupPath & "" & n & "" & j & "" & j2 & "" & ListBox2.SelectedItem, _
  690.                            Application.StartupPath & "" & n & "" & j & "" & j2 & k)
  691.             End If
  692.         End If
  693.     End Sub
  695.     Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
  696.         Dim gra As Graphics = e.Graphics
  697.         Dim p As Pen = New Pen(Color.Black)
  698.         gra.DrawRectangle(p, 80, 47, 100, 100)
  699.     End Sub
  701. End Class