Sub FindUsbDevice As String
'CHECK - UsbStorage
If (File.Exists("/storage/6233-3230/gsi", "") = True) Then
Return "/storage/6233-3230/gsi Directory was found"
Write_2_File("/storage/6233-3230/Gsi/", strBestandsUit_gsi , Resultaat_AES_Decrypt)
Else
Return "Error : Directory gsi was not found"
End If
End Sub
Sub Write_2_File(DirTarget As String, FileTarget As String,Text_string As String) As String
Dim My_txt_Writer As TextWriter
Dim data_out As String
data_out = Text_string
My_txt_Writer.Initialize(File.OpenOutput(DirTarget,FileTarget,False))
My_txt_Writer.Write(data_out)
My_txt_Writer.Close
Return data_out
End Sub