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