Vista - Detect if file exist

Hi

With this code I need to erase the file if the file exists else exists
script.

But dont work Whel.

Display an error "Error in File"

ho is the problem?


If File("c:\testes\teste.ual") Then
Kill (c:\testes\teste.ual)
Else
WScript.Quit
End If



Thanks

H.S.

"Henrique" <wq@xxxxxx> wrote in message
news:newscache$z61t7k$aq3$1@xxxxxxAs far as I know there are no inbuilt functions in VB Script called "File"
or "Kill". Are these your own functions? If so then you should post them. If
not then you should look at the FileSystemObject for methods to check for
the existence of a file and how to delete a file. The downloadable help file
script56.chm will give you full details.

Hi



The VBscript for detect if the file exists is:


Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.fileExists("c:\testes\teste.ual") then
objFSO.DeleteFile("c:\testes\teste.ual")
Else

????????VBcript.Quit??????????????????

end if

But the Script for quit from VBScript Im finding.
You know?

Thankyou

H.S.


"Pegasus (MVP)" <I.can@xxxxxx> escreveu na mensagem
news:%23vkqF49HJHA.3548@xxxxxx

"Henrique" <wq@xxxxxx> wrote in message
news:newscache$c75t7k$f96$1@xxxxxxTry wscript.quit. You'll find it in script56.chm.

I hav already tested, but it gives me the error: object: "Wscript"

Now I can open the file script56.chm.


Thankyou

H.S




"Pegasus (MVP)" <I.can@xxxxxx> escreveu na mensagem
news:OaU8Hm%23HJHA.1968@xxxxxx

"Henrique" <wq@xxxxxx> wrote in message
news:newscache$zf6t7k$g37$1@xxxxxxLet's have a look at your code!

Hi

This is my complete code:


@VBSCRIPT

DirF="c:\testes\teste.ual"

Set objFSO = CreateObject("Scripting.FileSystemObject")

If not objFSO.fileExists(DirF) then
wscript.quit
end if


adOpenStatic = 3
adLockOptimistic = 3
adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Supervisao\Alarmes.mdb;Persist Security Info=False"
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT * FROM registos" , StrCnn ,adOpenStatic,
adLockOptimistic


CRLF = Chr(13)& Chr(10)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(DirF, 1, False, -1)
DF = Split(objFile.ReadAll,CRLF)

For a = 0 to UBound(DF)

If Mid(DF(a), 72, 5) = "Alarm" Then 'Só grava se for alarme
objRecordset.AddNew
objRecordset("Data") = Mid(DF(a), 1, 12)
objRecordset("Hora") = Mid(DF(a), 13, 7) + "00"
objRecordset("Equipamento") = Mid(DF(a), 20, 5)
objRecordset("Alarme") = Mid(DF(a), 20, 41)
objRecordset.Update
End If
next

objFile.Close
objRecordset.Close

objFSO.DeleteFile(DirF)

@ENDSCRIPT




"Pegasus (MVP)" <I.can@xxxxxx> escreveu na mensagem
news:%23jzA2y%23HJHA.4884@xxxxxx

"Henrique" <wq@xxxxxx> wrote in message
news:newscache$te7t7k$so7$1@xxxxxxI put the following lines into c:\test.vbs:

DirF="c:\testes\teste.ual"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If not objFSO.fileExists(DirF) then

wscript.echo "Terminating the script . . ."
wscript.quit
end if
wscript.echo "Continuing with the script . . ."

I don't have a file called "c:\testes\teste.ual" and the script terminated
with the message "Terminating the script", as expected.

"Pegasus (MVP)" <I.can@xxxxxx> escreveu na mensagem
news:uSDC8I$HJHA.4884@xxxxxxI put the code and got the same error.

if I withdraw "wscript.quit" and put only "wscript.echo "Terminating the
script . . ."" get the same error: "Object requerid: 'wscript'" at line 6

"Henrique" <wq@xxxxxx> escreveu na mensagem
news:newscache$6iat7k$zk9$1@xxxxxxIf I put only "wscript.echo "Continuing with the script . . ." display the
same error