[VB6] Esistenza cartella

[Grunt]

      If(Dir(path_directory,vbDirectory)<>"") Then
          MsgBox "la directory esiste"
      else
          MsgBox "la directory non esiste"
      endif