Função não retorna valor esperado
Essa instrução do If verifica se um determinado arquivo existe ou não, através do método FileExists do objeto FileSystemObject.Felipe Costa Gualberto - http://www.ambienteoffice.com.br
View ArticleFunção não retorna valor esperado
o que esse If procura? If oFS.FileExists(strFilePath) Then ret = oFS.GetFile(strFilePath).Size Else ret = "Arquivo não existe." End If
View ArticleFunção não retorna valor esperado
Sub pMain() Debug.Print pGetFileLen("c:\temp\demos.ds") End Sub Private Function pGetFileLen(strFilePath As String) As String Static oFS As Object 'Scripting.FileSystemObject Dim ret As String If oFS...
View ArticleFunção não retorna valor esperado
Não conheço direito esse script, mas creio que o vba está entendo o getFileLength com uma varável e não como uma função. Penso eu que você deva colocar o nome da variável oFS antes do getFileLength,...
View ArticleFunção não retorna valor esperado
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...
View Article