VB6 Source Code - Membuat Virtual Drive Menggunakan VB6

Mengenai cara membuat Virtual Drive menggunakan Visual Basic 6 - Bagaimanakah cara membuat virtual drive menggunakan VB6 dengan bantuan Command DOS Subst.exe, berikut adalah contohnya:

Private Function MountVirtualDrive(vd As String, path As String)
    'Perintah di bawah untuk melakukan mounting/membuat virtual drive
    'subst.exe x: c:/windows/system32 'melakukan mounting path terhadap virtual drive x
    Shell "Subst.exe " & vd & path
End Function

Private Function UnMountVirtualDrive(vd As String)
    'Perintah di bawah untuk unmounting/release virtual drive
    'subst.exe x: /d 'melakukan unmounting virtual drive x:
    Shell "Subst.exe " & vd & " /d"
End Function

Demikian cara sederhana mengenai pembuatan virtual drive menggunakan VB6 dengan bantuan DOS Command Subst.exe, semoga bermanfaat.