关于打开指定文件夹的问题

wjsfeng

我在窗体中建立了一个命令按钮，当我单击的时候就打开指定的文件夹，例如,电脑的【D盘】下有一个文件夹名为【学习文件】，当我单击窗体的【学习文件】这个命令按钮时，显示【学习文件】下的所有文件。

chenwm1973

下边的代码是定位除A盘外的U盘或移动硬盘的位置，若不存在则定位程序所在的位置。
Private Sub Form_Load()
    For Each drv In fso.Drives
        If drv.DriveType = 1 And UCase(drv.DriveLetter) <> "A" Then
            sDrvLetter = UCase(drv.DriveLetter)
            Exit For
        End If
    Next drv
    If sDrvLetter = "" Then
        Drive1.Drive = App.Path
        Else
        Drive1.Drive = (sDrvLetter) & ":\"
    End If
    Dir1.Path = Drive1.Drive
    sSavePath = Dir1.Path
    Label1.Caption = sSavePath
End Sub

chaojianan

Dim dr
    dr = "explorer " & "D:\学习文件"
    Shell dr, vbNormalFocus

wjsfeng

谢谢各位的鼎力支持！！！！！！谢谢【chaojianan】和【chenwm1973】