VISUAL BASIC FUNCTION RITORNO??

[texerasmo]

forse a qualcuno di voi questo codice è familiare

' vado a fare il controllo se una determinata dir è sul cd dell'utente
Dim vVet As Variant
Dim nLen As Integer
Dim nI As Integer
Dim bTrovato As Boolean
Dim prova() As Boolean

vVet = GetListDrives(DT_CDROM)
nLen = UBound(vVet)
nI = 0
Do
nI = nI + 1
'MsgBox (vVet(nI))
If CBool(PathIsDirectory(vVet(nI) & "nomefolder")) = True Then
bTrovato = True
End If

Loop Until nI = nLen 'Or bTrovato = True

Non riesco a crearmi un funzione che mi faccia questo.

Questo pezzo di codice mi controlla se su un cd c'è una determinata cartella.
Se c'è bTrovato è true.

Ora sto cercando ma non ci riesco a crearmi una funzione che mi restiutisce un valore booleano a seconda se questa dir c'è potete aiutarmi...

[matpez]

Option Explicit

Private Sub Form_Load()

  MsgBox "Trovato: " & Bho("non_so")
  
End Sub

Private Function Bho(ByVal sFolder As String) As Boolean

  'vado a fare il controllo se una determinata dir è sul cd dell'utente
  Dim vVet          As Variant
  Dim nLen          As Integer
  Dim nI            As Integer
  Dim bTrovato      As Boolean
  
  
  vVet = GetListDrives(DT_CDROM)
  nLen = UBound(vVet)
  nI = 0
  Do
    nI = nI + 1
    'MsgBox (vVet(nI))
    If CBool(PathIsDirectory(vVet(nI) & sFolder)) = True Then
      bTrovato = True
    End If
  Loop Until nI = nLen Or bTrovato = True
  
  Bho = bTrovato

End Function

HAVE FUN!

[texerasmo]

tnks...