Eu uso um método de expiro com base num arquivo criado pelo vb de extensão .dat.

 

Gostaria de saber a seguinte lógica e como criar a linha de comando.

 

Function - Verificar_Arquivo

Se não existir arquivo c:windowssystem32 então

    Faça uma função

senão

    faça outra coisa.

fim

 

é essa a lógica, mas não consigo codificar ela, hehehe

 

 

abraços a todos e desde já obrigado.

veja este exemplo:

Dim fso as Scripting.FileSystemObject,
Dim msg as string, filespec as string

Set fso = new Scripting.FileSystemObject
filespec = "c:|caminhoarquivo.txt"
'obs.: troque o pipe (|) por barra invertida.

  If (fso.FileExists(filespec)) Then
    msg = filespec & " exists."
  Else
    msg = filespec & " doesn't exist."
  End If

msgbox msg

Outro jeito tb:

 

IF DIR("C:|arquivo.dat") = "" then

  MSGBOX "ARQUIVO NÃO EXISTE"

  'FAZ FUNÇÃO

ELSE

   'FAZ OUTRA COISA

ENDIF

 

at+ :)