[Resolvido]Backup em VBA para unidades removiveis

Olá gente!
O PILOTO tem um exemplo de backup incrível, pois busca as unidades do OS numa combox...
http://maximoaccess.forumeiros.com/t7554-backup-no-disco-rigido-e-em-dispositivo-removivel-com-pesquisa-automatica-do-mesmo?highlight=Backup

É tudo que eu tava precisando, em se falando de backup para pendriver... to doidin pra usar...
Ele tá todo funcional, menos na parte que eu MAIS preciso: PENDRIVER!

O erro tá dando aqui ó: Parametros_de_Inicializacao "SysPen.par" (no finzin do VB) rrrrrrrrrrrrrrr Já ignorei a linha e nada, dá mais erro!

Será que alguém aqui viu isso?

Desde já, eu agradeço!
Paulo César

olá, pode postar a linha onde ocorre esse erro ? pois aqui não ocorreu comigo.

Grato.

Olá Silvio!
Parametros_de_Inicializacao SysPen.par (no finzin do VB)
Valeu!

Silvio

Será este?
A mim este dá erro

http://maximoaccess.forumeiros.com/t11486-backup-do-mestre-piloto-da-erro-ao-copiar-para-pen-drine

Paulo César

Teste

Atenção na tabela Proprietario
Aos campos "Programa" e "Tipo"

Boas.. Baixe o exemplo SysBase, nele tem o modulo funcionando na perfeição.

Cumprimentos.

Bem... estive dando uma enxugada na função que copia para o Pen-Drive.. Quando fiz este exemplo ainda estava engatinhando no vba..


Private Function fncDestinoBackupPen(Optional Destino As String = "local") As String
Dim SourceFile, LocalDestino
Dim DirTemp As String

DirTemp = CurrentProject.Path & "\BackUp"

LocalDestino = Replace(Destino, "local", StrLtr & "backup")
If Len(Dir(LocalDestino, vbDirectory) & "") = 0 Then
MkDir LocalDestino
End If
SourceFile = Replace(Me.txDestino, "-", "-c") ' Definir o nome do arquivo de origem.
Destino = Replace(SourceFile, "" & DirTemp & "", "" & LocalDestino & "") ' Definir o nome do arquivo de destino."
If Me.selWinrar = -1 Then
SourceFile = Replace(SourceFile, ".accdb", ".rar")
Destino = Replace(Destino, ".accdb", ".rar")
FileCopy SourceFile, Destino
MsgBox "Backup no Dispositivo Removível ." & vbCrLf & _
vbCrLf & "efetuado com sucesso!", vbInformation, "Aviso"
Beep
Else
FileCopy SourceFile, Destino ' Copiar a origem no destino.
MsgBox "Backup no Dispositivo Removível ." & vbCrLf & _
vbCrLf & "efetuado com sucesso!", vbInformation, "Aviso"
Beep
End If
End Function



O Exemplo atualzado:

http://maximoaccess.forumeiros.com/t7554-backup-no-disco-rigido-e-em-dispositivo-removivel-com-pesquisa-automatica-do-mesmo#61259

Abraços.