Boa tarde pessoal, Bem estava fuçando na net a procura de uma programa free que importasse de uma vez só vários arquivos *.vcf para Ms Outlook 2007 e achei um script que está desta forma:
Sub OpenSaveVCard()
Dim objWSHShell As IWshRuntimeLibrary.IWshShell
Dim objOL As Outlook.Application
Dim colInsp As Outlook.Inspectors
Dim strVCName As String
Dim fso As Scripting.FileSystemObject
Dim fsDir As Scripting.Folder
Dim fsFile As Scripting.File
Dim vCounter As Integer
Set fso = New Scripting.FileSystemObject
Set fsDir = fso.GetFolder("G:\Contato")
For Each fsFile In fsDir.Files
strVCName = "G:\Contato\" & fsFile.Name
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run strVCName ->> Aqui que o script para acusando o erro descrito abaixo
Set colInsp = objOL.Inspectors
If Err = 0 Then
Do Until colInsp.Count = 1
DoEvents
Loop
colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing
End If
End If
Next
End Sub
O problema e o seguinte a String "strVCName" pega o nome do arquivo vcf, até ai tudo certo, mas como alguns arquivos tem espaço no nome tipo assim "a fulano.vcf", na hora que a função lê dá erro, como eu faço para que está string "strcVCName" lei o nome
do arquivo com espaço em branco sem o erro:
"Erro de tempo de execução '-2147023741 (80070483)':
Erro de Automação
O sistema não pode encontrar o arquivo especifico"
Fiz o teste tirando o espaço de um arquivo funcionou, mas não dá para tirar de todos são muitos arquivos desta forma, alguém
pode me ajudar solucionar este scrip?!!!
