guardar archivos cada determinado tiempo

[David]

Es que no estás poniendo la contrabarra después de la letra de unidad (Ej: C:\)

[forketina]

Ahh bueno es que en el ejemplo me faltaron ponerlas pero si las estpy poniendo aca en mi sistema.

[David]

Bueno, también debes poner la contrabarra al final, y debes asegurarte que la carpeta destino aún no exista.

[forketina]

Bueno probe con y sin "\" al final y en este caso es lo mismo y ahora si se creó la carpeta2 es que habia "casualmente" en el equipo otra carpeta igual de otro usuario,bueno lo que vi es que como quien dice se elimina la carpeta1 y se sustituye por la carpeta2 , hay alguna forma en que no se elimine la carpeta1 sino únicamente su contenido despues de que se pasó a carpeta2???

[David]

Puedes hacer un FileCopy *.* y un Kill *.* en la carpeta, o usar el Name As para cada archivo dentro de la carpeta.

[forketina]

Hola gracias si me sirvió,pues use el FileCopy y el kill de la siguiente manera y funcionó
FileCopy "C:\carpeta1\pantallas.doc", "C:\carpeta2\pantallas.doc"
FileCopy "C:\carpeta1\sis.doc", "C:\carpeta2\sis.doc"
...........
..........
Kill "C:\carpeta1\*.doc"
Tengo otra duda con el kill pude decirle mediante el comodín que eliminara todo lo que tuviera "carpeta1" pero según lo que pude investigar es que no se puede de igual manera hacer con el FileCopy es decir que copie todo los archivos, hay alguna manera aparte de la de Name ...As.., es que con eso pues se elimina también la carpeta, y con el FileCopy tendría que poner el nombre de cada archivo y es que no siempre se van a llamar igual los archivos de la carpeta.

[David]

Puedes listar con Dir todos los archivos de la carpeta y copiarlos...

[forketina]

A que te refieres con listar a usar algo así...? y después el FileCopy como sería para pasarlos a "C:\carpeta2" ??
File.Dir("C:\carpeta1")

[David]

No, para usar Dir debes hacer una primera llamada a la función así:

Código:

FileName = Dir("C:\carpeta\*.*", vbArchive)

Luego para las sucesivas llamadas colocas:

Código:

FileName = Dir

Y te va devolviendo en la variable FileName los nombres de los archivos que están en la carpeta hasta que cuando haya terminado el listado devuelve "".

[forketina]

Hola David y gracias ,finalmente pude pasar todos los archivos de una carpeta de una unidad a otra y eliminando después los archivos de la carpeta origen y lo puse en el módulo1 y lo sustituí por lo que tenia antes en la función del TimerProc:

Módulo1.
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long)

Static x As Long
Forms("Form1").Caption = "Tiempo transcurrido: -->> " & CStr(x)
x = x + 1

Dim Ruta_origen As String
Dim Ruta As String

Ruta_origen = "C:\carpeta1\"
Ruta = Dir(Ruta_origen, vbNormal)
Do While Ruta <> ""
' Asegurar que es un archivo.
If (GetAttr(Ruta_origen & Ruta) And vbNormal) = vbNormal Then
FileCopy "C:\carpeta1\" & Ruta, "D:\carpeta2\" & Ruta
End If
Ruta = Dir
Loop
Kill "C:\carpeta1\*.doc"
End Sub

[David]

Me alegro que haya funcionado.

P.S.: El comentario está mal, no estás asegurándote que sea un directorio, estás asegurándote que sea un archivo Normal