Spanish [SOLUCIONADO] Evitar error si no existe carpeta y crearla al vuelo

[desof]

Hola amigos estoy usando esta linea de code

Dim flist As List
flist = File.ListFiles(File.DirDefaultExternal&"/baner")

y me da error si la carpeta /baner no existe, si la creo manualmente en el telefono todo perfecto.
Como hago para crear la carpeta al vuelo si esta no existe ?

 

[EnriqueGonzalez]

Puedes usar

file.exists

y

file.makedir

 

[arielariel1]

Dim ruta As String

If File.ExternalWritable Then
    ruta= File.DirDefaultExternal
Else
    ruta=File.DirInternal       
End If

If File.Exists(ruta, "baner.jpg")=False Then
    File.MakeDir(File.DirAssets,"baner")
End If

 

[desof]

Dim ruta As String

If File.ExternalWritable Then
    ruta= File.DirDefaultExternal
Else
    ruta=File.DirInternal    
End If

If File.Exists(ruta, "baner.jpg")=False Then
    File.MakeDir(File.DirAssets,"baner")
End If

no seria ?

If File.Exists(ruta, "1.jpg")=False Then
            File.MakeDir(ruta,"baner")
   
End If