vb编写文件管理器设计方案

MsgBox "名称不为空"
Exit Sub
End If
If File1.FileName = "" Then '文件夹重命名
If File1.Path <> "" Then '获得上级目录
retempdir = File1.Path
lenfile = Len(retempdir)
Do While Right$(retempdir, 1) <> "\"
Text1.SelLength = Len(Text1.Text)
hand:
MsgBox "输入不合法"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Path = Dir1.Path
End Sub
Private Sub Dir1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu wenjian
End If
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Label2.Left = 2880 * j
Label2.Width = 975 * j
Label2.Top = 4320 * k
Label3.Height = 255 * k
Label3.Left = 1320 * j
Label3.Width = 1335 * j
Label3.Top = 3600 * k
Private Sub guanbi_Click()
End
End Sub
Private Sub Form_Resize()
Dim j As Single
Dim k As Single
j = Me.Width / w
k = Me.Height / h
File1.Height = a11 * k
File1.Left = a12 * j
Loop
End If '获得上级目录
oldname = fname21
newname = retempdir & e
On Error GoTo hand1
Name oldname As newname
If CurDir <> "" Then
retempdir = CurDir
lenfile = Len(retempdir)
End If
retval = Shell(Fname, 1) '执行程序
Exit Sub
hand:
MsgBox "该文件非可执行文件"
End Sub
Private Sub File1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo hand
oldname = File1.Path
newname = retempdir & e
Name oldname As newname
If CurDir <> "" Then '返回上级目录
abc = CurDir
lenfile = Len(abc)
Do While lenfile <> 1
Combo1.SelLength = Len(Combo1.Text)
End If
Exit Sub
hand4:
MsgBox "输入不合法"
End Sub
Private Sub Command1_Click()
On Error GoTo hand
File1.Pattern = Text1.Text
Text1.SelStart = 0
End If
Exit Do
End If
retempdir = Left$(retempdir, lenfile - 1)
lenfile = Len(retempdir)
Loop
Dir1.Path = retempdir
ChDir Dir1.Path
End If
Exit Sub
hand1:
MsgBox "文件重名不可重命名"
End If
m = Fname
p = File1.FileName
End If
End Sub
Private Sub shanchu_Click()
Dim Fname As String
If Right(File1.Path, 1) = "\" And File1.FileName <> "" Then
b11 = Command1.Height
b12 = Command1.Left
b13 = Command1.Width
b14 = Command1.Top
c11 = Text1.Height
c12 = Text1.Left
c13 = Text1.Width
c14 = Text1.Top
End Sub
File1.Width = a13 * j
File1.Top = a14 * k
Dir1.Height = 1770 * k
Dir1.Left = 480 * j
Dir1.Width = 3015 * j
Dir1.Top = 1320 * k
Command1.Height = b11 * k
Command1.Left = b12 * j
Loop
Dir1.Path = abc
ChDir Dir1.Path
End If '返回上级目录
Exit Sub
hand:
MsgBox "文件不可重命名" '文件夹重命名
End If
If File1.FileName <> "" Then '文件重命名
If Right(File1.Path, 1) = "\" Then
Dim Fname As String
If Right(File1.Path, 1) = "\" And File1.FileName <> "" Then
Fname = File1.Path & File1.FileName
Else
Fname = File1.Path & "\" & File1.FileName
Label1.Height = 375 * k
Label1.Left = 240 * j
Label1.Width = 495 * j
Label1.Top = 840 * k
Drive1.Left = 840 * j
Drive1.Width = 5895 * j
Drive1.Top = 840 * k
Do While lenfile <> 1
If Right$(retempdir, 1) = "\" Then
retempdir = Left$(retempdir, lenfile - 1)
If Right$(retempdir, 1) = ":" Then
retempdir = retempdir & "\"
Combo1.AddItem "*.txt"
Combo1.AddItem "*.doc"
Combo1.AddItem "*.*"
w = Me.Width
h = Me.Height
a11 = File1.Height
a12 = File1.Left
a13 = File1.Width
a14 = File1.Top
fname21 = File1.Path & File1.FileName
Else
fname21 = File1.Path & "\" & File1.FileName
End If
If fname21 <> "" Then '获得上级目录
retempdir = fname21
lenfile = Len(retempdir)
If Button = 2 Then
PopupMenu bianji
End If
End Sub
Private Sub Form_Load()
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
Combo1.AddItem "*.bmp"
Private Sub chongmingming_Click()
Dim newname As String, retempdir As String, lenfile As Integer, oldname As String