Sub MakeFolderDirRootExtarnal
Dim TargetFolder1 As String = File.DirRootExternal
If File.Exists(TargetFolder1,Newname) = False Then File.MakeDir(TargetFolder1,Newname)
Starter.StorageFld = TargetFolder1&"/"&Newname
If File.Exists(Starter.StorageFld ,"Images") = False Then File.MakeDir(Starter.StorageFld ,"Images")
If File.Exists(Starter.StorageFld ,"Documents") = False Then File.MakeDir(Starter.StorageFld ,"Documents")
If File.Exists(Starter.StorageFld ,"Videos") = False Then File.MakeDir(Starter.StorageFld ,"Videos")
If File.Exists(Starter.StorageFld ,"AppAsset") = False Then File.MakeDir(Starter.StorageFld ,"AppAsset")
End Sub