Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
If File.Exists(File.DirRootExternal, "User.txt") = True Then
File.Copy(File.DirInternal, "User.txt", File.DirRootExternal, "User.txt") 'keep getting error
'on this line have checked the /File and it is included and same spelling and capital
File.Copy(File.DirInternal, "Level.txt", File.DirRootExternal, "Leveltxt")
File.Copy(File.DirInternal, "Score.txt", File.DirRootExternal, "Score.txt")
File.Copy(File.DirInternal, "Cash.txt", File.DirRootExternal, "Cash.txt")
read
Else
File.WriteString (File.DirRootExternal, "User.txt","")
File.WriteString (File.DirRootExternal, "Leveltxt", "")
File.WriteString (File.DirRootExternal, "Score.txt","")
File.WriteString (File.DirRootExternal, "Cash.txt","")
'read
End If
End If