If chkmultinvWriter.Checked =True Then
filename=txtfilename.Text
Msgbox("A file named " & filename & " will be created for your use. See manual for details","Write to sd card")
writer.Initialize (File.OpenOutput (File.DirRootExternal ,filename,True))
writer.Write("MULTIPLE INVERSE ROUTINE" & CRLF & CRLF)
writer.Write ("Point range = " & txtrange.Text & CRLF )
writer.Write ("Inverses " & CRLF )
writer.Write(txtdisplay.Text )
writer.Close
End If
Most probably the other internal partition. DirInternal is the secure area where apps and their data live. DirExternal is insecure and open to all apps to access.nd I don't know if this means the SD card or just the other internal partition.
' DataLogger.Initialize(File.OpenOutput(File.DirRootExternal , "/Sniffer/sniffer_"&DateTime.date(now)&"_"&DateTime.time(now) &".txt", True))
DataLogger.Initialize(File.OpenOutput( "/Removable/MicroSD/Sniffer","sniffer_"&DateTime.date(now)&"_"&DateTime.time(now) &".txt", True))
Excellent ! This works very well, thank you <so> much. That's one of my key issues solved
I have printed up an index card as follows:
STORAGE LOCATION PATHNAMES (ASUS TF101)
to access internal SD card:
FileDirRootExternal & "/dirname" & "filename"
to access removable MicroSD card:
"/Removable/MicroSD/dirname/filename"
to access removable SD card in keyboard dock:
"/Removable/SD/dirname/filename"
to access right back USB storage (USB1):
"/Removable/USBdisk2/dirname/filename"
to access left front USB storage (USB2):
"/Removable/USBdisk2/dirname/filename"
I think I shall try to write a program which will copy/transfer selected files in any of these locations to one of the other locations. I did much the same in B4PPC for my Ipaq214 primarily so that it could be used as a dump for camera CF cards when they get full when I am away from home.
Thanks again
Caravelle
You don't need, and shouldn't use, an absolute filepath to the external memory. Android gives it to you with File.DirRootExternal.
I have never been able to see the SDcard in my A500 using any tools.
I have an adapter for my Laptop toread/writeto the microsd card and I have neverbeen able toread anything off it.
BOB.
Unfortunately I can find no statement by Google about the intended use of removable storage on Honeycomb and later which is a pity as a clear statement would make the position a lot clearer than it is at the moment.
Depends !Is this advisable as a workaround?
Sub GetSDCardFolder() As String
'*************************************************************
'Try to find the location of removable external sdcard memory,
'perform a write test and return the folder name, if writable.
'*************************************************************
Dim root As String
Dim folder As String
Dim sdf As String
'------------------------------------
' Acer A500 Tablet
'------------------------------------
[COLOR="Blue"]root = "/mnt"
folder = "external_sd"[/COLOR]
If File.IsDirectory(root,folder) Then
sdf=root & "/" & folder
If Writetest(sdf) Then Return sdf
End If
'------------------------------------
'Samsung Galaxy S2
'-------------------------------------
[COLOR="blue"]root = File.DirRootExternal
folder = "external_sd" [/COLOR]
If File.IsDirectory(root,folder) Then
sdf=root & "/" & folder
If Writetest(sdf) Then Return sdf
End If
'-------------------------------------
' ASUS TF 101 (Micro SD)
'-------------------------------------
[COLOR="blue"]root = "/mnt/sdcard/Removable"
folder = "MicroSD"[/COLOR]
If File.IsDirectory(root,folder) Then
sdf=root & "/" & folder
If Writetest(sdf) Then Return sdf
End If
'------------------------------------
'Asus TF 101 (SD-Card Keyboard Dock)
'------------------------------------
[COLOR="blue"]root = "/mnt/sdcard/Removable"
folder = "SD"[/COLOR]
If File.IsDirectory(root,folder) Then
sdf=root & "/" & folder
If Writetest(sdf) Then Return sdf
End If
'-------------------------------------
'HTC Desire
'-------------------------------------
[COLOR="blue"]root = File.DirRootExternal
folder = "sd"[/COLOR]
If File.IsDirectory(root,folder) Then
sdf=root & "/" & folder
If Writetest(sdf) Then Return sdf
End If
'-------------------------------------
'MOTOROLA DROID 3
'-------------------------------------
[COLOR="blue"]root = "/mnt"
folder = "sdcard-ext"[/COLOR]
If File.IsDirectory(root,folder) Then
sdf=root & "/" & folder
If Writetest(sdf) Then Return sdf
End If
'to be continued....
End Sub
Sub WriteTest(dirname As String) As Boolean
Dim s As String
Try
File.WriteString(dirname,"test.tmp","test")
s=File.ReadString(dirname,"test.tmp")
File.Delete(dirname,"test.tmp")
Catch
Log(LastException.Message)
Return False
End Try
If s="test" Then return true
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?