计算机应基础AVB11-12-1课件.ppt

第八章 文件 Private Sub Dir1_Click() File1.Path = Dir1.Path File1.Pattern = Combo1.Text End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Command1_Click() If Right(File1.Path，1) = \ Then 获取文件的路径和名称 fullname = File1.Path File1.FileName Else fullname = File1.Path \ File1.FileName End If tmp = Right(fullname，3) 取出文件名中扩展名 第八章 文件 For i = 1 To 3 tmp2 = tmp2 + UCase(Mid(tmp，i，1)) Next i tmp = tmp2 If tmp = JPG Or tmp = GIF Or tmp