Dim tgtFile As String
	Dim Tgt As ExternalFile
	Dim Src As InputStream
	Dim ImportDB As OutputStream
	
	'######################################################################
	' copy files from external SD card to DirInternal
	'######################################################################
	' select the folder with the replacement file
	Storage.SelectDir(False)
	Wait For Storage_ExternalFolderAvailable
	FoldersStack.Clear
	EnterFolder(Storage.Root)	
	tmp=GetCurrentFolder.Name
	lblBackUpPath.Text=tmp
	
	tgtFile="sightmarks.csv"
	Tgt=Storage.FindFile(Storage.Root,tgtFile)
	Src=Storage.OpenInputStream(Tgt)
	ImportDB=File.OpenOutput(File.DirInternal,tgtFile,False)
	Log("Copying from SD Card")
	Wait For (File.Copy2Async(Src, ImportDB)) Complete (Success As Boolean)
	Log("Success SightMarks: " & Success)

	Log(File.Exists(File.DirInternal,tgtfile))
	Log(File.Size(File.DirInternal,tgtfile))