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

desof · Jul 22, 2017

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 · Jul 23, 2017

Puedes usar

file.exists

y

file.makedir

arielariel1 · Jul 23, 2017

B4X:

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 · Jul 24, 2017

arielariel1 said:

B4X:

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 ?

B4X:

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

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

desof

Well-Known Member

EnriqueGonzalez

Well-Known Member

arielariel1

Member

desof

Well-Known Member

Similar Threads

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

desof

Well-Known Member

EnriqueGonzalez

Well-Known Member

arielariel1

Member

desof

Well-Known Member

Similar Threads

Privacy & Transparency

Privacy & Transparency