这个简单，代码如下：Private Sub Dir1_Change()Txt1.Text = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub改变dir、drive即可看见
