Access to Internal Directories

Erel said:

If this folder is not restricted then you can access it by writing the folder name directly.

Click to expand...

Adir = "what would you put here? I am wanting the built in memory of the NookColor"

If File.Exists(Adir, "/My Files/Pictures/") Then 
   wdir=Adir&"/My Files/Pictures/"
Else
   ToastMessageShow("No Files Found to Display", False)
        Return "CANCEL"
End If

kickaha said:

I think the internal memory root is "system", but the use of it is quite restricted so I am not sure if you can access it correctly.

If you are wanting to select a picture why not have a look at ContentChooser, there is a very good thread on it HERE

Click to expand...

margret said:

I did try this and it brings up the Images just fine. However, on the NookColor it also has video files in this same directory and it shows a thumbnail pic just like a .jpg. So they may select a video and not just an image. Any way you know to give a filter mask for .png, .jpg and .bmp?

Thanks,

Margret

Click to expand...

ContentChooser.Show("image/*", "Choose image")

kickaha said:

Does it do this when you call the ContentChooser with the image mime type?

B4X:

ContentChooser.Show("image/*", "Choose image")

Click to expand...

'Activity module
Sub Process_Globals
End Sub
Sub Globals
   Dim GetImage As Button
   Dim ImageView1 As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
   cc.Initialize ("chooser")
   ImageView1.Initialize ("")
   GetImage.Initialize ("GetImage")
   ImageView1.Gravity = Gravity.Fill 
   Activity.AddView (ImageView1, 10dip, 100dip, 300dip, 300dip)
   GetImage.Text  = "Load Picture"
   Activity.AddView (GetImage,10dip, 10dip, 300dip, 60dip)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub GetImage_Click
   CC.Show("image/*", "Choose image")
End Sub
Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
   If Success Then ImageView1.Bitmap = LoadBitmap (Dir, FileName)
End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
   If Success Then ImageView1.Bitmap = LoadBitmap (Dir, FileName)
End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)

If Success Then
If FileName.EndsWith("png") OR FileName.EndsWith("jpg") Then
ImageView1.Bitmap = LoadBitmap (Dir, FileName)
else
msgbox("Can only load PNG and JPG pictures","Warning")
end if
end if

End Sub

Click to expand...