Sub UploadFile
Dim cd As CustomDialog
retPath = File.DirRootExternal
Populatelv(retPath,customLV,LVFolderOnly)
cd.AddView(customLV,2dip,0,90%x-4dip,65%y)
fdresp = cd.Show("Select File to upload","Select","Cancel","",Null)
If fdresp = -3 Then Return
If File.IsDirectory(DB.GetParentPath(retPath),DB.GetFileName(retPath))= True Then
ToastMessageShow("No file is selected", False)
Log("Directory was selected instead of file")
Return
End If
ToastMessageShow(DB.GetFileName(fname) & " will be uploaded shortly",False)
End Sub