VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "文件管理器"
   ClientHeight    =   3330
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   5610
   LinkTopic       =   "Form1"
   ScaleHeight     =   3330
   ScaleWidth      =   5610
   StartUpPosition =   3  '窗口缺省
   Begin VB.FileListBox File1 
      Height          =   2610
      Left            =   2280
      TabIndex        =   2
      Top             =   480
      Width           =   3255
   End
   Begin VB.DirListBox Dir1 
      Height          =   2610
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   2175
   End
   Begin VB.DriveListBox Drive1 
      Height          =   300
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2175
   End
   Begin VB.Menu mnuFileNew 
      Caption         =   "新建文件夾"
   End
   Begin VB.Menu mnuCopyFile 
      Caption         =   "復制文件"
   End
   Begin VB.Menu mnuDel 
      Caption         =   "刪除"
      Begin VB.Menu mnuDelFolder 
         Caption         =   "刪除文件夾"
      End
      Begin VB.Menu mnuDelFile 
         Caption         =   "刪除文件"
      End
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Fso As New FileSystemObject
Dim Folder1 As Folder
Dim TextF1 As TextStream

Private Sub Dir1_Change()
'改變目錄
    File1.Path = Dir1.Path
    Set Folder1 = Fso.getfolder(Dir1.Path)
End Sub

Private Sub Drive1_Change()
'改變驅動器
    Dir1.Path = Drive1.Drive
End Sub


Private Sub Form_Load()
'裝載窗體
    Set Fso = CreateObject("Scripting.FileSystemObject")
End Sub

Private Sub mnuCopyFile_Click()
'復制文件
    Fso.CopyFile Dir1.Path & "\" & File1.FileName, Dir1.Path & "\" & "新建文件"
    File1.Refresh
End Sub


Private Sub mnuDelFile_Click()
'刪除文件
    Dim Ans As Integer
    Ans = MsgBox("是否刪除?", vbOKCancel, "刪除")
    If Ans = 1 Then
        Fso.DeleteFile Dir1.Path & "\" & File1.FileName
    End If
    File1.Refresh
End Sub

Private Sub mnuDelFolder_Click()
'刪除文件夾
    Dim Ans As Integer
    Ans = MsgBox("是否刪除?", vbOKCancel, "刪除")
    If Ans = 1 Then
        Fso.DeleteFolder Dir1.Path
    End If
    Dir1.Refresh
End Sub

Private Sub mnuExit_Click()
'退出菜單
    End
End Sub


Private Sub mnuFileNew_Click()
'新建文件夾菜單
    Fso.CreateFolder (Dir1.Path & "新建文件夾")
    Dir1.Refresh
End Sub