strfilename=txtFileName.text & ".txt"
If File.Exists (File.DirRootExternal,strfilename)=True Then
Msgbox("This file is on the sdcard" ,"File location")
File.Copy(File.DirRootExternal,strfilename,File.DirInternal ,strfilename)
'delete the file from the sdcard. it will remain in internal
File.Delete (File.DirRootExternal ,strfilename)
writer.initialize(File.OpenOutput (File.DirInternal ,strfilename,True))
Else
writer.initialize(File.OpenOutput (File.DirInternal ,strfilename,True))
End If