find empty drives and map them (VB6)

[steveh]

Hi all

Can somebody help me with some code please to find any 2 empty drives on a host PC and then map them (this is not for me but I can get more information if required)

[HansV]

Copy the following procedure into a module:

Code: Select all

Sub MapDrive(Path As String)
    Dim fso As Object
    Dim c As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    For c = 4 To 26
        If fso.DriveExists(Chr(64 + c) & ":") = False Then
            Exit For
        End If
    Next c
    If c = 27 Then
        MsgBox "No drive letter available!", vbExclamation
        Exit Sub
    End If
    CreateObject("WScript.Network").MapNetworkDrive _
        Chr(64 + c) & ":", Path
End Sub

This code will find the first unused drive letter starting at D: and map it to the path supplied.

You can use it like this:

Code: Select all

Sub AssignDrives
    MapDrive "\\Server1\Share1\Folder1"
    MapDrive "\\Server2\Share2\Folder2\Subfolder2"
End Sub