usar ini ou txt com varieval e passar para shell

[wladinarfeitosa 0]

bom gente, eu to usando um comando shell para abrir um arquivo

 Shell("CMD.EXE /c D: & cd pathcompleto\doarquivo & start arquivo.exe & pause")

eu queria o seguinte, criar um arquivo txt, ou de preferencia ini,

e tivesse as seguintes definições

 

disco = D:

path = pasta/doarquivo

 

e conseguisse colocar no comando shell e enviar a informação das definições para o mesmo

 Shell("CMD.EXE /c "e outra aqui" & cd "variavel aqui" & start arquivo.exe & pause")

[Iranildo 0]

Feitosa, seu objetivo não esta muito claro.

Se você que carregar variáveis com informações de um arq.ini faça assim:

 

1)Arquivo nome.ini

 

[Endereço_Base_Dados]

D:\Sistema

[Temporários]

D:\Sistema\Temp

...

 

2)Lendo arquivo nome.ini e atribuindo a uma variável global (um array por exemplo)

No módulo principal

Public  Caminhos(0 to 1) as Variant
Dim I as Integer
Dim StrVar as string
Open App.path & \nome.ini For Input As #1
I=0
Do while no eof(1)
    strvar=""
    Input #1, Strvar    'Lê linha do arquivo .ini
    if len(strvar)>0 then
       if left(strvar,1) = "[" then
           Select Case Trim(strvar)
                Case "[Endereço_Base_Dados]
                    I=0
                Case "[Temporários]"
                    I=1
         end select
     else
         caminhos(I)= trim(strvar)
    end if
loop
'
close #1

Agora se você quer executar uma ação via cmd faça assim:

Ex.

1) arq. copia.bat

copy c:\tmp\orc.txt \\NomeServidorImpressao\nomeimpressora (nomes com 8 caracteres no máximo)

 

2) Na aplicação comando print

 

Após gerar o orc.txt

Dim Retorno as long
Retorno=0
Retorno=Shel(Caminho(0) & "\copia.bat", vbhide)
'

Você pode usar arquivos .bar para vários objetivos inclusive backups.

.

Espero ter ajudado.