VB__源代码.docVIP

?￡?é?′′ú?? Public curName As String Public curFile As String Public waitingCopyFile As String Public curDirec As String Public OldWindowProc As Long ???t On Error GoTo BadFilename comdResult = -1 File1.FileName = Text1.Text Dir1.Path = File1.Path Drive1.Drive = Dir1.Path File1.Pattern = Combo1.Text comdResult = 0 Exit Sub BadFilename: MsgBox ??óD?a?????t! comdResult = 0 End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path curFile = curDirec = Dir1.Path curName = Dir1.Path End Sub Private Sub Drive1_Change() Dim msg As String On Error GoTo Drive_er Dir1.Path = Drive1.Drive Exit Sub Drive_er: If (err = 68) Or (err = 71) Then msg$ = ?y?ˉ?÷ Drive1.Drive ?′×?±?o? MsgBox msg$, vbOKOnly Else msg$ = ·￠???ò?′?a′í?ó￡?′í?óo?= + Str(err) MsgBox msg$, vbOKOnly End If End Sub Private Sub File1_Click() If Right$(Dir1.Path, 1) \ Then curFile = Dir1.Path \ File1.FileName Else curFile = Dir1.Path File1.FileName End If curDirec = waitingCopyFile = File1.FileName End Sub Private Sub File1_DblClick() Dim RetVal, msg$ If comdResult = -1 Then Exit Sub On Error GoTo err RetVal = Shell(File1.FileName, 4) Exit Sub err: If RetVal = 0 Then msg$ = ???t′ò?a′í?ó MsgBox msg$, vbOKOnly End If End Sub Private Sub Combo1_Change() File1.Pattern = Combo1.Text End Sub Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Form_Load() Combo1.AddItem *.* Combo1.AddItem *.bmp Combo1.AddItem *.exe Combo1.AddItem *.doc Combo1.AddItem *.txt Command1.Default = True Text1.Text = File1.Pattern = *.* curFile = curDirec = Dir1.Path curName = Dir1.Path Call ResizeInit(Me) End Sub Private Sub mnuc_Click(Index As Integer) copyFile = curFile newCopyFile = waitingCopyFile End Sub Private Sub mnud_Click(Index As Integer) Dim myDir$, reTempDir$, msg$ Dim lenfile As Integer On Error GoTo errBad If curFile Then Kill curFile File1.Refresh Else If curDirec Then reTempDir = curDirec: myDir$ = curDirec lenfile = Len(reTempDir) Do While lenfile 1 If Right$(reTempDir, 1) = \ Then reTemp