[求助]用什么代码可以打开E盘？

好学

假设光驱是E盘，用什么代码可以打开E盘？看到E盘的内容？

一点通

在按钮的"超链接地址"中写入E:\

[此贴子已经被作者于2007-3-17 22:02:00编辑过]

好学

但如果要做成安装软件的光盘中的浏览光盘内容，这样的效果，就是打开当前的驱动器，那应该如何呢？谢谢！

[此贴子已经被作者于2007-3-17 22:37:43编辑过]

nxjswt

例如

建立个函数

Option Compare Database
Option Explicit
Dim path As String

Sub getFileName()
    ' 显示一个 Office 打开文件对话框，为当前的雇员记录
    ' 选择一个文件名．如果用户选择了一个文件，
    ' 则将它显示到图片控件中
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择雇员照片"
        .Filters.Add "所有文件", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "位图文件", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![照片路径].Visible = True
            Me![照片路径].SetFocus
            Me![照片路径].Text = fileName
            Me![姓氏].SetFocus
            Me![照片路径].Visible = False
            错误信息.Visible = False
        End If
    End With
End Sub



然后调用


Private Sub 添加照片_Click()
    ' 使用 Office 文件打开对话框

    getFileName
End Sub

好学

大哥，你可能理解错我的意思了，不是打开对话框选择文件，我是要做成软件安装时浏览光盘内容的按钮。是要打开当前光驱的内容。光驱每台机都可以是不同的名（如：E、H、F.....都有可能).

好学

确切应该这样说吧，用什么代码可以打开我的电脑，并且到了文件的当前目录。

一点通

建一个列表框(Combo1),在值列表中写入全部的盘符(C;D;E;F;G;H),在按钮(Command0)的单击事件中写入如下代码

Me.Command0.HyperlinkAddress = Me.Combo1 & ":\"


在列表框中选中盘符,再按按钮就可打开对应的盘

好学

我是在VB写这个代码的,是这样吗?但不行[em06][em06][em06]

   Command0.HyperlinkAddress = App.Path & ":\"

好学

一点通领导可以帮帮我吗？谢谢了！

fan0217

获取光盘盘符：

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6
      
'获取光驱盘符
Public Function GetCDROMDrive() As String
    Dim r     As Long
    Dim allDrives     As String
    Dim currDrive     As String
    Dim drvType     As Integer

    allDrives = GetDriveString()
        Do Until allDrives = Chr$(0)
            currDrive = StripNulls(allDrives)
            drvType = GetDriveType(currDrive)
            If drvType = DRIVE_CDROM Then
                GetCDROMDrive = currDrive
                Exit Do
            End If
        Loop
End Function
   
   
Private Function GetDriveString() As String
    Dim sBuffer As String
        sBuffer = Space$(26 * 4)
        If GetLogicalDriveStrings(Len(sBuffer), sBuffer) Then
            GetDriveString = Trim$(sBuffer)
        End If
End Function
   
   
Private Function StripNulls(startstr As String) As String
    Dim pos     As Long
    pos = InStr(startstr$, Chr$(0))
    If pos Then
          StripNulls = Mid$(startstr, 1, pos - 1)
          startstr = Mid$(startstr, pos + 1, Len(startstr))
    End If
End Function

[此贴子已经被作者于2007-3-18 19:14:17编辑过]