Sub btnOK_click
strfilename=txtFileName.text & ".txt"
If File.Exists (File.DirRootExternal,strfilename)=True Then
File.Copy(File.DirRootExternal,strfilename,File.DirInternal ,strfilename)
writer.initialize(File.OpenOutput (File.DirInternal ,strfilename,True))
Else
writer.initialize(File.OpenOutput (File.DirInternal ,strfilename,True))
End Sub