Pequeño software! ayuden por favor! gracias!

[Kruzado]

yo definitivamente no te voy hacer el programa, pero si te voy a ayudar con las herramientas que necesitas para lograr ti objetivo....

1) para ver los archivos que tienes en un directorio, utiliza el objeto filelistbox y , modifica las propiedades segun :

File1.Path = "C:\ICR\DATA\"
File1.Pattern="*.txt"
File1.Refresh

con esto tu objeto filelist muestra todos los archivos de tu directorio data y que tengan la extension txt

ahora necesitamos ejecutar el programa encolador con los archivos de textos encontrador, para eso vas a utilizar algo como


programa="C:\ICR\encolador.exe N C:\ICR\DATA\"
For x = 0 To File1.ListCount - 1
nomarchivo = File1.List(x)
valor1=val(mid(nomarchivo,1,1))
valor2=val(mid(nomarchivo,3,5))
parametro1=nomarchivo
parametro2="Tabla:Entrada " & valor1 & " " & valor2 & " N US PW SERVIDOR B. DE DATOS"

comando=programa & " " & parametro1 & " " & parametro2
shell(comando)
next x

recorre el filelistbox y por cada archivo que encuentra genera el llamado al comando requerido, ejemplo
toma el primer archivo (file1.list(x)) y lo garda en la variable nomarchivo
luego para recuperar el valor de los parametros ocupamos la funcion mid :

si nomarchivo es "2_00018_080601_080630.txt"
valor1 vale "2" y valor2 es "080601" y con la funcion val los transformo a numero entonces :

valor1=2, valor2=80601

las variables parametro1 y parametro2 quedan de la sig. forma

parametro1 vale "2_00018_080601_080630.txt"
parametro2 vale "Tabla:Entrada 2 80601 N US PW SERVIDOR B. DE DATOS"

para finalizar la variable comando toma los valores de proceso anterior quedando como

comando vale "C:\ICR\encolador.exe N C:\ICR\DATA\2_00018_080601_080630.txt Tabla:Entrada 2 80601 N US PW SERVIDOR B. DE DATOS"

para finalizar ejecutamos dicho comando con la funcion shell
shell(comando)

con eso tienes lograda la mitad del problema, ahora tu investiga como utilizar los comando open y write para actualizar un archivo de texto para guardar la fecha y la hora de modificacion

intenta ver que sucede y nos avisas..... SALUDOS!!!!!!

para mover un archivo a una carpeta determinada, debes ocupar el comando name

name "c:\prueba\nomarchivo.exe" "c:\prueba new\nomarchivo.exe", con esto mueves el archivo de la carpeta prueba a la carpeta prueba new

para crear una carpeta mkdir "c:\prueba\carpeta"

para crear una carpeta con los primeros 5 caracteres de tu archivo, en el for del primer codigo debes

nombrecarpeta=mid(nomarchivo,1,5)
mkdir nombrecarpeta