If File.ExternalReadable = True Then
If Not(File.Exists(File.DirDefaultExternal,"/calcul")) Then
File.MakeDir(File.DirDefaultExternal,"calcul")
End If
dircalc= File.DirDefaultExternal&"/calcul"
Dim idir As Boolean
idir=File.IsDirectory(File.DirDefaultExternal,"calcul")
Log("idir = " & idir)
Else
If Not(File.Exists(File.DirRootExternal,"/calcul")) Then
File.MakeDir(File.DirRootExternal,"calcul")
End If
dircalc= File.DirRootExternal&"/calcul"
Dim idir As Boolean
idir=File.IsDirectory(File.DirRootExternal,"calcul")
Log("idir = " & idir)
End if