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! :oink:

[texerasmo]

tnks...