Hola a todos, quisiera apoyo con este codigo. Soy principiante en programacion y trato de entender.

La fin de este código es que tiene que ejecutar un programa (runpkr) a través de un comando por consola en todos los archivos que esten ubicados en la carpeta.

ejem:

DIRECTORIO
   - archivo1.t01
   - archivo2.t01

comando a ejecutar por consola en cada archivo:  runpkr00 -d archivo1.t01

 Dim midirectorio As String = TextBox1.Text
        If midirectorio = "" Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
        Else
 
            Try
 
                My.Computer.FileSystem.CopyFile(
                 "C:\Program Files\convert data\runpkr00.exe",
                 midirectorio & "\runpkr00.exe",
                Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                 Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
            Catch ex As Exception
                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
 
            End Try
            If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then
                For Each Archivo As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
                    Console.WriteLine("runpkr00.exe -d" & Archivo)
                Next
            End If
 
        End If

Se que algo esta mal. Quisiera su apoyo.


Gracias. =)

Eres lo máximo explicando. Te entendí muy bien.

Muchas Gracias por todo.

Hasta pronto.

=)

Eres lo máximo =). Muchas gracias por ayudarme.
Lo que me gustaría entender es como el array puede relacionar con el numero del archivo.

Bendiciones Eleкtro =)

Buenas tardes,

Necesito realizar un procedimiento donde sucede lo siguiente:

- Tengo una carpeta con varios archivos donde los nombres son similares, sólo cambian los dígitos (ABCD001aA.T01, ABCD002aA.T01, CDEF003aA.T01, CDEF004aA.T01,...)
- Capturar en una variable los 3 dígitos del archivo (001, 002, 003,..) para que luego se relacione con el numero de 4 dígitos correspondientes (ejem: si es 003 imprimir 1773)
 
RELACION:
001   1773
002   1773
003   1773
004   1773
005   1774
006   1774
007   1774
008   1774
009   1774
010   1774
011   1774
012   1775
013   1775
014   1775
015   1775
016   1775
017   1775
018   1775
019   1776
.
.
364   1825
365   1825


Espero su pronta ayuda.


Gracias.

Lamento no haber explicado mejor pero aquí voy.

Quiero generar un código donde realice solo con los archivos de una determinada extensión (*.zxc) la captura de los 3 dígitos del nombre de archivo (002), lo guarde en una variable y busque en el array de datos el numero de 4 dígitos correspondiente para luego imprimirlo.

ejemplo:

Directorio con varios archivos similares donde solo cambia los 3 números.
  ABCD002ab.zxc (todos los archivos tienen la misma cantidad de dígitos)
  ABCD010ab.zxc
  ABCD065ab.zxc
   ... etc

arreglo:
          002 = 1773
          003 = 1773
          004 = 1773
          005 = 1774
          006 = 1774
          007 = 1774
          ...
          0061= 1792
          0062= 1792
          0063= 1792
          ...etc


Espero haberme hecho entender mejor.

PD. El código seria en vbscript

Hola, lamento no haber explicado mejor pero aquí voy.

Quiero generar un código donde realice solo con los archivos de una determinada extensión (*.zxc) la captura de los 3 dígitos del nombre de archivo (002), lo guarde en una variable y busque en el array de datos el numero de 4 dígitos correspondiente para luego imprimirlo.

ejemplo:

Directorio con varios archivos similares donde solo cambia los 3 números.
  ABCD002ab.zxc (todos los archivos tienen la misma cantidad de dígitos)
  ABCD010ab.zxc
  ABCD065ab.zxc
   ... etc

arreglo:
          002 = 1773
          003 = 1773
          004 = 1773
          005 = 1774
          006 = 1774
          007 = 1774
          ...
          0061= 1792
          0062= 1792
          0063= 1792
          ...etc


Espero haberme hecho entender mejor.

PD. El código seria en vbscript

Buen día,
Tengo una PC con una tarjeta de video integrada y otra dedicada, lo que pasa es que al momento de querer utilizar las dos tarjetas como resultado tengo que con una si se ve la imagen y la otra no. Antes si podía utilizarlo pero después de formatear la Pc ya no (SO W8 a W7).


Espero su ayuda.

Muchas gracias de antemano.


--
Rossmery Chacon.

Elektro, estoy agradecida por el apoyo que me brindas. Trato de entender el código que me acabas de alcanzar pero creo que en la parte de Weeks(DatePart("ww", Now())) es relacionado con las semanas del año del calendario fijo internacional que es de lunes a domingo (http://www.calendario-365.es/calendario-2014.html) y en el calendario gps es de domingo a sábado.

Como resultado que obtuve al ejecutar el script fue lo siguiente:
1. realiza el procedimiento con todos los archivos en la carpeta raiz y no hace lo mismo con los sub directorios, pero solo tendría que convertir los archivos *.dat
2. al momento de capturar el archivo lo hace con toda su ruta pero para que funcione el teqc solo es indicando el nombre del archivo.

teqc +nav nombrearchi0.14n -week semanagps -tr d nombrearchivo.dat> nombrearchi0.14o

Nuevamente gracias

Por el momento sería así, manualmente, pero lo ideal sería de forma automática. Se que ahora no voy a poder generar ese código para que me salga de forma automática pero por ahora esta bien de manera manual =)

Gracias por todo elektro.

Muchas Gracias Eleкtro =) Me ayudaste muchísimo, lo que me queda como interrogante es el start /w.

Ahora tengo otro caso. Después de ejecutar el programa runpkr ahora tengo que ejecutar otro programa que es el teqc con el siguiente código:
teqc +nav nombrearchivo0.14n -week semanagps -tr d nombrearchivo.dat> nombrearchivo0.14o

nota:
* en semanagps se tendría que insertar la semana que seria ejem: 1783 (http://gps.topografia.upm.es/www/calactal.htm).
* el nombrearchivo tendria que modificar. ejem: CCCCDDDaA.t01 --> CCCCDDD0.t01 (cambiar los dos ultimos digitos por 0)

Lo que pasa es que lo estoy haciendo por partes para no aturdirme