#Region "CustomSubs"
Public Sub IsStorageFolderSelected As Boolean
Return File.Exists(File.DirInternal, PreviousUriFileName)
End Sub
Public Sub ReadList(exfile As ExternalFile) As List
Dim in As InputStream = OpenInputStream(exfile)
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "tmp", False)
File.Copy2(in, out)
out.Close
Return File.ReadList(File.DirInternal, "tmp")
End Sub
Public Sub WriteList(FileName As String, lst As List)
'Alle Laps als CSV-File speichern
File.WriteList(File.DirInternalCache, FileName, lst)
'Neue Leere Datei in der Ablageordner erstellen
Dim ef As ExternalFile = CreateNewFile(Root, FileName)
Dim in As InputStream = File.OpenInput(File.DirInternalCache, FileName)
Dim out As OutputStream = OpenOutputStream(ef)
File.Copy2(in, out)
out.Close
End Sub
Public Sub CopyFileToDirInternal(exfile As ExternalFile)
Dim in As InputStream = OpenInputStream(exfile)
Dim out As OutputStream = File.OpenOutput(File.DirInternal, exfile.Name, False)
File.Copy2(in, out)
out.Close
End Sub
Public Sub CopyFileToExternalStorage(Dir As String, Filename As String, exfolder As ExternalFile)
'Neue Leere Datei in der Ablageordner erstellen
Dim ef As ExternalFile = CreateNewFile(exfolder, Filename)
Dim in As InputStream = File.OpenInput(Dir, Filename)
Dim out As OutputStream = OpenOutputStream(ef)
File.Copy2(in, out)
out.Close
End Sub
Public Sub FileExist(dir As ExternalFile, sFile As String) As Boolean
'Erstellt ein Liste für die Prüfung ob das neue File schon vorhanden ist
Dim lst As List = ListFiles(dir)
For Each ex As ExternalFile In lst
If ex.Name.ToLowerCase = sFile.ToLowerCase Then
Return True
End If
Next
Return False
End Sub
Public Sub FileDelete(dir As ExternalFile, sFile As String) As Boolean
Dim lst As List = ListFiles(dir)
For Each ex As ExternalFile In lst
If ex.Name.ToLowerCase = sFile.ToLowerCase Then
Return DeleteFile(ex)
End If
Next
Return False
End Sub
#End Region
