双击Button1加入如下代码,在代码中有详细的注释: Private Sub Button1_Click?ByVal sender As System.Object? ByVal e As System.EventArgs? Handles Button1.Click OpenFileDialog1.ShowDialog??‘显示文件打开对话框 Dim fname As New FileInfo?OpenFil eDialog1.FileName ?'初始化FILEINFO类,此类可以获得文件的各种信息,在本代码中用来获得文件名 Dim copyf As System.IO.File '初始化FILE类,此类用来对文件进行具体的操作,本代码中用来实现文件的转移 sname = fname.Name??'使用fileinfo类的name属性来获得文件名,但不包含路径 copyf.Move?OpenFileDialog1.FileName? ″c?\recycled\″ & sname? '移动到回收站文件夹,RECYCLED是回收站文件夹 End Sub
双击Button2加入如下代码,在代码中有详细的注释: Private Sub Button2_Click?ByVal sender As Object? ByVal e As System.EventArgs? Handles Button2.Click Dim zh Dim pj As String '在listbox控件中选定要运行的文件 zh = ListBox1.SelectedIndex‘用zh记录选中的序列号 pj = ListBox1.Items.Item?zh? '用pj记录序列号所对应的文字,本代码中对应的文字表示文件名 Me.Text = ″正在运行程序″ + pj '在窗口标题栏处表示运行的程序,这些程序都是在listbox中列出的,即在回收站中的文件 Dim spros As New System.Diagnostics.Process?? 'Process是进程类,在Visual Basic .Net中与Visual Basic6.0中的shell函数类似, '在后面的文章中我们将对它进行专门的探讨。 spros.Start?pj? ' 利用Process类中的start属性运行选定的文件 End Sub
双击在Button3加入如下代码,在代码中有详细的注释: Private Sub Button3_Click?ByVal sender As Object? ByVal e As System.EventArgs? Handles Button3.Click Dim dir As System.IO.Directory '由于目录对象可以直接实现目录的操作所以这里使用它获得回收文件的个数 Dim i As Integer Dim filename? fileno ListBox1.Items.Clear??‘清空listbox,为下次显示做准备 filename = dir.GetFiles?″c?\recycled″? ″?″? '利用Directory类的Getfile属性获得文件数组 fileno = dir.GetFiles?″c?\recycled″? ″?″?.Length '利用Length获得数组的大小即回收站中到底有多少文件 For i = 0 To fileno - 1 ListBox1.Items.Add?filename?i?? '将每个文件添加到listbox中,显示回收站中的具体文件 Next End Sub