Dim dbFileSize As Long
dbFileSize = File.Size(HttpUtils2Service.TempFolder & "/", _
HttpUtils2Service.filename)
' Technique below copied from
' MLFilesTest project
Dim fs As MLfiles
If fs.GetFreeSpace(SDDir) < dbFileSize Then
Msgbox("Storage card does not have space for database:" & CRLF & _
"Needs " & dbFileSize & " bytes," & CRLF & _
"has " & fs.GetFreeSpace(SDDir) & " bytes" & CRLF & _
"left on Storage Card", _
"Insufficient space on storage card")
Activity.Finish
End If