Private Sub Drivel Changeo[文许的诗用 文件名称不 选定文件 Dirl Path Drivel, Drive 当前目录p: y Documents\ VE数 选定目录 Fi1e1. Pattern=〃*,* 目录 合V教学 7 1. exe 03版m End sub 合V新 71.vb 结束 7l MSSccPRT SCC Private Sub Dirl Change( 例 Filel Path Dir1 Path TxtPath. Text Dir1 path Filel pattern ="*,*k TxtFile. Text filel pattern Drivel. Drive Dirl Path End subPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive File1.Pattern = "*.*" End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path TxtPath.Text = Dir1.Path File1.Pattern = "*.*" TxtFile.Text = File1.Pattern Drive1.Drive = Dir1.Path End Sub