VB工程--百例49--显示文件路径

Option Explicit

Private Sub Dir1_Change()
        File1.Path = Dir1.Path                       

       Label1.Caption = Dir1.Path
End Sub

Private Sub Drive1_Change()
        Dir1.Path = Drive1.Drive     

        Label1.Caption = Drive1.Drive
       
End Sub

Private Sub File1_Click()
        If Right(Dir1.Path, 1) = "\" Then   红字是right语法 ；若目录路径最右侧的字符为"\"      
           Label1.Caption = Dir1.Path & File1.FileName   显示所选择的文件名
        Else                                                          若目录路径最右侧的字符不是为"\"      
           Label1.Caption = Dir1.Path & "\" & File1.FileName     在显示的文件名前添加"\"    

End If
End Sub

Private Sub Form_Load()
        Dir1.Path = Drive1.Drive       文件所在的驱动器与目录项符合
        File1.FileName = Dir1.Path    文件的路径是目录列表中的路径
       
End Sub

 

成品图

 

 

此题和VB百例48相类似