[vb6]Creazione nuova cartella

[lexus89]

salve a tutti, ho un problema, quando cerco di controllare se la cartella che voglio creare esiste già, il risultato della v = Len(Dir(perc)) mi da sempre 0 e poi mi da errore...mi sto scervellando ma non riesco a capire dove sbaglio.

  perc = nuovodb.Dir1.Path & "\" & Text1.Text
  v = Len(Dir(perc))
  If v = 0 Then
        perc = nuovodb.Dir1.Path & "\" & Text1.Text
        MkDir (perc) 
        nuovodb.Enabled = True
        nuovodb.Dir1.Refresh
        nuova_cartella.Hide
        Text1.Text = ""
    Else
        MsgBox ("cartella già esistente in questo percorso!"), vbExclamation
        Exit Sub
    End If

End If

grazie a tutti in anticipo!!

[gibra]

Perche scervellarsi?
Bastava guardare sulla guida di VB6 (cosa che ti consiglio di fare):

v = Len(Dir(perc, vbDirectory))

Ciao