como copiar varias veces en el mismo directorio un archivo

[ELGRANSOLRAC]

Hola alguien save algun codigo para copiar el numero de veces un archivo que quieras.Gracias yo se hacerlo que lo copie en un lugar pero solo una vez me falta que sea las veces que quiera sin que lo machaque encima gracias de nuevo si alguien puede ayudarme supongo que sera un codigo pequeño.

[Hendrix]

No te entendi muy bien, pero puedes hacer esto:

Dim mio As String
mio = App.Path & "\" & App.EXEName & ".exe
For i =0 to 10 ' (puedes poner las veces que kieras)
Filecopy mio, mio & i
Next

Lo que aria esto es kopiar en el directorio que esta tu archivo 10 archivos mas komo el tuyo, no lo copiaria encima ya que le añades un numero al final, kedaria asi:

Archivo1
Archivo2
Archivo3
....
....
....

Espero que te sirva...

Salu2

Hendrix

[Robokop]

 

No te entendi muy bien, pero puedes hacer esto:

Dim mio As String
mio = App.Path & "\" & App.EXEName & ".exe
For i =0 to 10 ' (puedes poner las veces que kieras)
Filecopy mio, mio & i
Next

El code en si esta bien pero ala hora de ejecucion no funciona porque quedan asi los archivos nombre.exe1,nombre.exe2 etc...

mas bien el code es este  :

For i = 1 To 3

FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & i & ".exe"     
'Este comando busca el directorio y nombre del archivo despues lo copia pero despues del nombre agrega la variable I que a esa le dimos el valor con for i = 1 to 3
Next

salud2

[Hendrix]

jejeje se me olvido eso....

Gracias robokop...

Salu2

[ELGRANSOLRAC]

Gracias tengo un problemita e montado el codigo pero no va.
Es una aplicacion que eliges un archivo y lo copia en el mismo directorio las veces que le digamos este es el Code
code:

Código [Seleccionar] Expandir


Private Sub Abrir_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Text3.Text = CommonDialog1.FileTitle
End Sub


Private Sub Copiar_Click()

Dim mio As String
mio = Text1.Text
For i = 0 To 10
FileCopy mio, App.Path & "\" & i & Text3.Text
Next
End Sub




este es el code y no me funciona.

Luego me falta si funciona esto es que pueda yo poner en tiempo de ejecucion el numero de veces que quiera 2,3,4,5 las que quiera y cuando aprete a copiar copie las veces que le digamos en un Text2.text gracias sigo intentandolo si pueden ayudarme GRACIAS...

[Robokop]

aver que te parece este code :

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
For a = 1 To Text2.Text
FileCopy Text1.Text, "C:\nombre" & "." & extensión

Next
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii:
Case 48 To 57, vbKeyBack:
Case Else:
KeyAscii = 0
End Select
End Sub

Private Sub Text3_Change()
extensión = Text3.Text
End Sub

En el text1 aparece el directorio en el text2 pones el numero de veces que se va a copiar y en el text3 pones la extensión con la que quieres que se copie

[ELGRANSOLRAC]

Muchisimas Gracias robokop y Hendrix_ .
Elcodigo es perfecto quedo perfecto lo que yo queria essactamente muchisimas GRACIAS.

Un saludo Elgransolrac...