private Sub FileExist(fn As String) As Boolean
Dim error As Object
Dim fetch As BANanoFetch
Dim fetchResponse As BANanoFetchResponse
Dim prom As BANanoPromise
'
Dim bfo As BANanoFetchOptions
bfo.Method = "HEAD"
'_prom = new Promise(function(resolve,reject) {
prom.NewStart
'_fetch=fetch(_fn,_bfo);
fetch.Initialize(fn, bfo)
'_fetch.then(function(_fetchresponse) {
fetch.Then(fetchResponse)
'resolve(_fetchresponse.ok);
BANano.ReturnThen(fetchResponse.OK)
'}).catch(function(_error) {
fetch.Else(error)
'reject(false);
BANano.ReturnElse(False)
'});
fetch.End
'});
prom.NewEnd
'_res=await _prom;
Dim res As Boolean = BANano.Await(prom)
Return res
End Sub