Quizas con el programador de tareas?

Pues en efecto, usando el programador de tareas es posible automatizar ese proceso. Ahora bien, lo complicado será encontrar "algo" que te mande los e-mails con los archivos adjuntos, porque mover los archivos, lo puedes hacer con este script mío.

' Filename: MoveDosier.vbs
' Revision: v1.1 - Paso de parámetros
' Author: Marc [MVP Windows]'
' Date: 30/12/2004
' Revised: 11/01/2005
' Sintaxis: MoveDosier.vbs DirOrigen DirDestino AgeFiles

Dim DirOr
Dim DirDest
Dim Ant

'*********************************************************************************************

On Error Resume Next
If WScript.Arguments.count > 0 Then
DirOr = WScript.Arguments.item(0)
Else
DirOr = InputBox("Nombre del directorio origen", "Directorio origen")
End If

If WScript.Arguments.count > 0 Then
DirDest = WScript.Arguments.item(1)
Else
DirDest = InputBox("Nombre del directorio destino", "Directorio destino")
End If

'*********************************************************************************************

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(DirOr)


For Each subCarpeta In objFolder.SubFolders
subCarpeta.Move DirDest & "\" & subCarpeta.Name
Next

Set objFolder = Nothing
Set objFSO = Nothing

'WScript.Echo "Copia de carpetas finalizada"


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Javi" escribió en el mensaje news:

Necesito que un programa cada 30 minutos, coja los archivos de una carpeta,
los mande por e-mail a una direccion predeterminada y mueva los archivos a
otra carpeta
¿Como puedo hacer esto?

Pues no consigo que el scrip mueva el contenido de la carpeta, seguro que
algo falla


"Marc [MVP Windows]" escribió en el mensaje
news:
Pues en efecto, usando el programador de tareas es posible automatizar ese
proceso. Ahora bien, lo complicado será encontrar "algo" que te mande los
e-mails con los archivos adjuntos, porque mover los archivos, lo puedes
hacer con este script mío.

' Filename: MoveDosier.vbs
' Revision: v1.1 - Paso de parámetros
' Author: Marc [MVP Windows]'
' Date: 30/12/2004
' Revised: 11/01/2005
' Sintaxis: MoveDosier.vbs DirOrigen DirDestino AgeFiles

Dim DirOr
Dim DirDest
Dim Ant

'*********************************************************************************************

On Error Resume Next
If WScript.Arguments.count > 0 Then
DirOr = WScript.Arguments.item(0)
Else
DirOr = InputBox("Nombre del directorio origen", "Directorio origen")
End If

If WScript.Arguments.count > 0 Then
DirDest = WScript.Arguments.item(1)
Else
DirDest = InputBox("Nombre del directorio destino", "Directorio
destino")
End If

'*********************************************************************************************

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(DirOr)


For Each subCarpeta In objFolder.SubFolders
subCarpeta.Move DirDest & "\" & subCarpeta.Name
Next

Set objFolder = Nothing
Set objFSO = Nothing

'WScript.Echo "Copia de carpetas finalizada"


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

"Javi" escribió en el mensaje
news:

Necesito que un programa cada 30 minutos, coja los archivos de una
carpeta,
los mande por e-mail a una direccion predeterminada y mueva los archivos a
otra carpeta
¿Como puedo hacer esto?

Hash: SHA1

Javi wrote:
| Pues no consigo que el scrip mueva el contenido de la carpeta, seguro que
| algo falla


A parte del script de Marc (curioso script, por cierto, gracias :-) )
puedes utilizar la linea de comandos, los comandos a utilizar serían:

at
move
copy

Enviar mails desde la linea de comandos en windows puede ser una tarea
complicada, (con lo facil que es en linux :-P), pero nada que no se
pueda solventar con utilidades de terceros... he encontrado dos
utilidades, que permiten hacer esto de enviar mails desde linea de
comandos, con el fin de poder automatizarlas en scripts que funcionan
correctamente, (las he probado), tienes info respecto a ellas en esta
dirección

http://www.beyondlogic.org/solution...nemail.htm


Una de ellas es "bmail", con esta utilidad, desde la linea de comandos
es posible enviar un mail, un ejemplo sería:

bmail -s 192.168.0.1 -t root -f -b "prueba de bmail"

y con "mpack" se pueden adjuntar archivos a esos mails... unas
utilidades muy curiosas. :-)

Otra forma sería enviar los mails a traves de telnet, pero no se como se
adjunta archivos mediante este metodo, tienes info respecto a esto en
los articulos de la KB.

**/XFOR: Telnet para trasladar 25 para probar comunicación SMTP
http://support.microsoft.com/kb/153119/es

Aunque el articulo viene referido a Exchange e IIS, el metodo es
exportable a windows xp (y en general a cualquier S.O.)
Saludos
Fernando M. / Registered Linux User #367696

Pues el script lo tengo en producción (es algo más completo, puesto que mueve carpetas según la antigüedad de las mismas). No creo que me haya pasado borrando el código de comprobación de fechas.


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Javi" escribió en el mensaje news:

Pues no consigo que el scrip mueva el contenido de la carpeta, seguro que
algo falla


"Marc [MVP Windows]" escribió en el mensaje
news:
Pues en efecto, usando el programador de tareas es posible automatizar ese
proceso. Ahora bien, lo complicado será encontrar "algo" que te mande los
e-mails con los archivos adjuntos, porque mover los archivos, lo puedes
hacer con este script mío.

' Filename: MoveDosier.vbs
' Revision: v1.1 - Paso de parámetros
' Author: Marc [MVP Windows]'
' Date: 30/12/2004
' Revised: 11/01/2005
' Sintaxis: MoveDosier.vbs DirOrigen DirDestino AgeFiles

Dim DirOr
Dim DirDest
Dim Ant

'*********************************************************************************************

On Error Resume Next
If WScript.Arguments.count > 0 Then
DirOr = WScript.Arguments.item(0)
Else
DirOr = InputBox("Nombre del directorio origen", "Directorio origen")
End If

If WScript.Arguments.count > 0 Then
DirDest = WScript.Arguments.item(1)
Else
DirDest = InputBox("Nombre del directorio destino", "Directorio
destino")
End If

'*********************************************************************************************

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(DirOr)


For Each subCarpeta In objFolder.SubFolders
subCarpeta.Move DirDest & "\" & subCarpeta.Name
Next

Set objFolder = Nothing
Set objFSO = Nothing

'WScript.Echo "Copia de carpetas finalizada"


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

"Javi" escribió en el mensaje
news:

Necesito que un programa cada 30 minutos, coja los archivos de una
carpeta,
los mande por e-mail a una direccion predeterminada y mueva los archivos a
otra carpeta
¿Como puedo hacer esto?

Tienes otro ejemplo en

http://www.microsoft.com/technet/sc...ovb21.mspx


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Javi" escribió en el mensaje news:

Pues no consigo que el scrip mueva el contenido de la carpeta, seguro que
algo falla


"Marc [MVP Windows]" escribió en el mensaje
news:
Pues en efecto, usando el programador de tareas es posible automatizar ese
proceso. Ahora bien, lo complicado será encontrar "algo" que te mande los
e-mails con los archivos adjuntos, porque mover los archivos, lo puedes
hacer con este script mío.

' Filename: MoveDosier.vbs
' Revision: v1.1 - Paso de parámetros
' Author: Marc [MVP Windows]'
' Date: 30/12/2004
' Revised: 11/01/2005
' Sintaxis: MoveDosier.vbs DirOrigen DirDestino AgeFiles

Dim DirOr
Dim DirDest
Dim Ant

'*********************************************************************************************

On Error Resume Next
If WScript.Arguments.count > 0 Then
DirOr = WScript.Arguments.item(0)
Else
DirOr = InputBox("Nombre del directorio origen", "Directorio origen")
End If

If WScript.Arguments.count > 0 Then
DirDest = WScript.Arguments.item(1)
Else
DirDest = InputBox("Nombre del directorio destino", "Directorio
destino")
End If

'*********************************************************************************************

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(DirOr)


For Each subCarpeta In objFolder.SubFolders
subCarpeta.Move DirDest & "\" & subCarpeta.Name
Next

Set objFolder = Nothing
Set objFSO = Nothing

'WScript.Echo "Copia de carpetas finalizada"


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

"Javi" escribió en el mensaje
news:

Necesito que un programa cada 30 minutos, coja los archivos de una
carpeta,
los mande por e-mail a una direccion predeterminada y mueva los archivos a
otra carpeta
¿Como puedo hacer esto?