Copiar ficheiros

[CreativeJopa]

Boas.

Quando a minha aplicação arranca, ela verifica se um determinado ficheiro existe. Caso não exista, eu pretendo que a aplicação copie esse ficheiro (que está englobado no projecto), para uma determinada pasta.

Tentei com: IO.File.Copy("\ficheiro.jpg", System.AppDomain.CurrentDomain.BaseDirectory), mas diz-me que não foi possível localizar parte do caminho.

Alguém sabe como fazer?

[renafi]

Experimenta fazer uma coisa parecida com isto:

File.Copy("fich.txt",Application.StartupPath())

[programadorvb6]

Olá boa noite.

Tente isto:

Public Function ExisteFicheiro(ByRef Caminho_Ficheiro As String) As Boolean
        If IO.File.Exists(Caminho_Ficheiro) Then
            ExisteFicheiro = True
        Else
            ExisteFicheiro = False
        End If
    End Function

If ExisteFicheiro(Application.StartupPath & "\ficheiro.jpg") = False Then
IO.File.Copy( [ onde está o ficheiro para ser copiado: ex: "c:\ficheiro.jpg ] , Application.StartupPath & "\ficheiro.jpg")
end if

Até+

Programadorvb6

[ribeiro55]

Quando dizes "englobado no projecto" queres dizer que está nos resources, ou adicionaste simplesmente à solução?

programadorvb6, só em jeito de dica:

Fazeres um método com a mesma assinatura e praticamente o mesmo tamanho de nome é redundante.

Também redundante é a forma como o escreveste. Ora analisa lá se não te bastava algo assim:

    Public Function ExisteFicheiro(ByRef Caminho_Ficheiro As String) As Boolean
        Return IO.File.Exists(Caminho_Ficheiro)
    End Function

😛

[programadorvb6]

Olá Sérgio.

É o método mais adequado e com poucas linhas.

Realmente... Quando escrevemos a instrução de verificação, há um retorno automático True ou False.

Sou um mero aprendiz..,  e não um proficional.

Obrigado pela dica.

Atentamente.

Programadorvb6

[Caça]

O ByRef ai também é desnecessário, bastava o ByVal.

[programadorvb6]

Thanks Pedro.