[Resolvido]vbxaccess imagens

[Matheus-vb6]

Boa tarde...

Para meu TCC tenho que criar um sistema de uma escola...

Na parte de cadastramento de alunos inseri um botão procurar para pegar a imagem do aluno...

Só que gostaria que a imagem selecionada fosse copiada para uma pasta e esse caminho fosse jogado no meu banco de dados (conexão ado)...

A parte de registrar o caminho eu sei fazer mas não consegui achar uma maneira de q a foto selecionada fosse copiada para a pasta apppath/Alunos/(sala)/fotos...

é possivel fazer??

--lembrando: n posso usar complementos externos porem posso usar uma aplicação DOS--

Abraços

Editado Setembro 18, 2010 por Matheus-vb6

[kuroi]

você pode usar a funcao FileCopy():

FileCopy "C:\a.txt", "C:\b.txt"

[Matheus-vb6]

e existe a possibilidade de renomear essa imagem quando copiada?? exemplo

peguei a imagem a.jpg

FileCopy "C:\a.jpg", "" & app.path & " & imagens\(sala)\alunos\"

e a imagem ser salva como um número (como se fosse o da chamada)

32.jpg

ai no banco de dados estaria na aba imagem "32.jpg"

[kuroi]

existe sim, se você reparar meu codigo já faz isso. é so você escrever o novo nome da imagem junto com o caminho no segundo parametro.

se por um acaso você precisar renomear um arquivo qualquer, o codigo é esse:

Name "C:\a.txt" As "C:\b.txt"

[Matheus-vb6]

Set rsdados = New Recordset
rsdados.Open "SELECT * FROM imagem", cn
numero = rsdados("imagem") + 1
FileCopy cdDialogo.FileName, " & app.path & " & "\imagens\" & numero & ".jpg"

Ele está dando erro nessa linha

FileCopy cdDialogo.FileName, " & app.path & " & "\imagens\" & numero & ".jpg"

Há algum erro de sintaxe? --corrigindo consegui arrumar... o código ficou dessa forma:

Set rsdadoss = New Recordset
rsdadoss.Open "SELECT * FROM imagem", cn
numero = rsdadoss("imagem") + 1
FileCopy cdDialogo.FileName, ("" & App.Path & "" & "\imagens\" & numero & ".jpg")

Editado Setembro 18, 2010 por Matheus-vb6