[AccessD] Need help with return in a function

[John Bodin]

Hi Chester,

If a file doesn't exist (which you hope is the case after the Delete/Kill issued, Dir will return a 0 for "Len()" function.  If file doesn't get deleted for whatever reason, a number > 0 will be returned.

I think you can change the line to:

Delete_File = Len(Dir$(aFile)) > 0

In the code that calls Delete_File, you could have something like:

if Delete_File(somefile) = false then
     Msgbox "Deleted Failed"
     do something
else
     Msgbox "Success"
end if

John

John Bodin
sBOR Office Systems
jbodin at sbor.com


________________________________________
From: AccessD <accessd-bounces at databaseadvisors.com> on behalf of Kaup, Chester <Chester_Kaup at kindermorgan.com>
Sent: Thursday, April 28, 2016 1:55 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Need help with return in a function

Came across a bit of code in a database and I don't understand what one line is supposed to do or how it is intended to work. I get a syntax error of
"Expected end of statement"  The line in question is return Len(Dir$(aFile)) >0. Thanks for the assistance.

Here is the whole function

Function Delete_File(aFile)
    Dim B As String
    On Error Resume
    Kill aFile
    On Error GoTo 0
    return Len(Dir$(aFile)) > 0         ' Make sure it actually got deleted.
End Function
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com