Olá amigos boa noite!
Estou movendo um arquivo com o código abaixo e, está dando certo quando o arquivo é jpg mas quando é pdf não faz, o que há de errado:
Estou movendo um arquivo com o código abaixo e, está dando certo quando o arquivo é jpg mas quando é pdf não faz, o que há de errado:
- Código:
sfol = strCaminho 'CurrentProject.path & "\trabalhando\" 'caminho inicial
dfol = CurrentProject.path & "\" & "Excluidos" & "\" 'destino
If Not Dir(dfol, vbDirectory) <> "" Then MkDir (dfol)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol) Then
MsgBox sfol & " não existe!", vbExclamation, "Erro"
ElseIf Not fso.FileExists(dfol) Then
fso.MoveFile (sfol), dfol
Else
MsgBox dfol & " existente!", vbExclamation, "Sucesso"
End If
Else
DoCmd.CancelEvent
End If