hi all..

i need a function to validate the name of the file..

any pointers will be great..

thanks in advance...

Gonzalo Bianchi

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

Gonzalo,
Tell me what kind of filename validatation you are looking for I mean DOS based (8 chars) or windows? You know there's a big difference.
-Ned

Gonzalo,
Here find the function that you looking for.
Cheers,
-Ned

'This function will check the validity of the filename.
Public Function ValidFileName(ByVal strFileName As String) As Boolean

    Dim bFound As Boolean

    On Error GoTo ValidFileName_Error

    ValidFileName = False 'Set default value

    If Trim(strFileName) <> "" Then
        'A valid filename cannot contain any of these characters /\:*?"<>
        bFound = InStr(1, strFileName, "/") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, "\") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, ":") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, "*") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, "?") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, """") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, "<") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, ">") > 0
        If Not bFound Then _
            bFound = InStr(1, strFileName, "|") > 0

        'Return validation status
        ValidFileName = Not bFound

    End If

Exit Function

ValidFileName_Error:
    'Abort if any errors occur
End Function

thanks ned.. i think that your function will do the trick..

just looking for win validation...



Gonzalo Bianchi

Ned,
unfortunately you code covers only part of the naming convention rules
(see the "File Name Conventions" chapter in the file storage session of
the SDK manuals).
BTW there is an easier way to implement your if statements:

IsValid = not (sFileName like "*![/\\:*?""<>]*")

Marco

marcos,

your code will not look for the * char in the string.. because the like will use it like a wildcard (will happend the same with ?)

anyway im on my way looking for the sdk.

thanks anyway...

Gonzalo Bianchi

Marco, I think that the line should be:

I have just removed the ! from before the first square bracket, otherwise your code will always return True. I have also taken out the duplicate \ it is not needed because of the square brackets.

Gonzalo, the code will work because the square brackets state that what is between them are special characters and should not be treated as wildcards. The asterisks (*) before and after the square brackets are wildcards, but not the one in between.

The statement means "Like anything and any of these characters: / \ : * ? " < > followed by anything."

Regards
Owain Williams