none
Verificar se drive existe - VB6 RRS feed

  • Pergunta

  • parace uma coisa simples, mais estou com uma dificuldade de um codigo que verifique se um certa unidade de encontra tenho esse exemplo mais nao esta rolando

     If ChDrive("D") <> "" Then 'unidade de drive
                    MsgBox "Unidade encontrada", vbInformation, "Informação"
                    else
                   MsgBox "Não foi encontrada unidade", vbInformation, "Informação"
                    End If

    segunda-feira, 22 de outubro de 2012 13:57

Respostas

  • Em vb6 vc tem que utilizar API

    Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
        "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
        ByVal lpBuffer As String) As Long
         
    ' Check whether a given drive exist
    ' Note that this returns True even if the drive isn't currently ready
    ' (e.g. a diskette isn't in drive A:)
         
    Function DriveExists(ByVal sDrive As String) As Boolean
        Dim buffer As String
        buffer = Space(64)
        ' return False if invalid argument
        If Len(sDrive) = 0 Then Exit Function
        'get the string that contains all drives
        GetLogicalDriveStrings Len(buffer), buffer
        ' check that the letter we're looking for is there
        DriveExists = InStr(1, buffer, Left$(sDrive, 1), vbTextCompare)
    End Function

    fonte:http://www.devx.com/vb2themax/Tip/19002

    att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------

    Sogi informatique ltée

    segunda-feira, 22 de outubro de 2012 14:23
    Moderador