Private Sub btWrite_Click
Dim fdName,tarDir As String
tarDir = File.DirDefaultExternal
fdName = "introb4a.txt"
'Write to external
If File.ExternalWritable Then
File.WriteList(tarDir,fdName,contList) -< Error Occur here !
ToastMessageShow("Just save the file",False)
Else
ToastMessageShow("Cannot Save the File",False)
End If
End Sub