Puedes utilizar la función instr para buscar agrega nombre o agrega fecha, y si quieres separar las palabras de una oración, simplemente puedes hacer uso de la función split 
Saludos

Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Eazy en 21 Octubre 2008, 02:00 AM
Novlucker r0x
set objfso = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
objshell.run "cmd /c cd \ & dir /s /b archivo.txt > %temp%\tempfile.txt",vbhide,true
'Debes de cambiar archivo.txt, por el nombre de tu archivo a buscar
set temp = objfso.getspecialfolder(2)
set tempfile = objfso.opentextfile(temp & "\tempfile.txt",1)
directorio = tempfile.readline
tempfile.close
objfso.deletefile temp & "\tempfile.txt"
objfso.movefile directorio, "c:\carpetadestino"
'Debes de cambiar c:\carpetadestino por la carpeta a
'la que moveras el archivo
Cita de: ......... en 18 Octubre 2008, 02:32 AM
Genial!
Aunque un reporte
Estoy usando el "Nuevo (creado por wvb)" y no tiene la publicidad de nuestros queridos y amados patrocinadoresjajajajajaja
Por si acaso
CitarPero tienes que saber su ruta.A que te refieres con esto?
CitarPD: Si quieren el source me lo piden por MP okI!!