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ú
, la extensión debes de ponersela tu 
Cita de: Eazy en 21 Octubre 2008, 02:00 AM
Novlucker r0x

, pero realmente no tengo mucho tiempo como para meterme a algún proyecto
, igualmente estoy atento a cualquier tipo de consulta 
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
, si se fijan, hasta bajando el archivo los datos aparecen "mal", no es tema de VB, son los mismos datos los que aparecen sin saltos de línea 

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?
, las rutas ya las tienes en el reg que acabas de exportar, HKEY_CURRENT_USER\IC-Prog\Settings
... me gusta bastante el nuevo, el unico pero que le veo es que "alumbra" mucho

CitarPD: Si quieren el source me lo piden por MP okI!!
