Quantcast
Channel: Função não retorna valor esperado
Viewing all articles
Browse latest Browse all 5

Função não retorna valor esperado

0
0

Amigos,

Estou utilizando a função FileLen e a mesma não está retornando o valor esperado:

....

If FileExists(fullpath) then

    Dim oFS

    Set oFS = CreateObject ("Scripting.FileSystemObject")

    If oFS.getFileLength(fullpath) = "" Then

          getFileLength = "No Length Available"

    Else

          getFileLength = FileLen(fullpath)

    End If

    Set oFS = Nothing

Else

   getFileLength = ""

End If

...

   Mesmo que a variável oFS.getFileLength(fullpath) tenha valor, sempre está retornando brancos como resultado, poderiam por favor me ajudar a identificar o problema?

Att,

Rafael


Viewing all articles
Browse latest Browse all 5

Latest Images





Latest Images