LOG NO SERVIDOR

CARINHENA 17/09/2004 15:10:08
#42414

Boa tarde a todos..
Estou com um problema muito chato, e nem tenho idéia de como resolver...
alguem por gentileza, poderia me ajudar?
Fiz um programa que verifica quando um arquivo foi escluido no micro.
Ou seja, caso a pessoa exclua algumn arquivo, o nome do computador, horário,
dia e arquivo são colocados em um log.
Para criar o log, uso desta forma:

Function createReport()

fileName = App.Path & "\ArquivosExcluido.txt"

'Cria arquivo txt
Set txt = fso.OpenTextFile(fileName, ForAppending, True)

'Coloca dia e data
txt.WriteLine ("Iniciado em: " & Now)

'Nome do computador e
Set objnet = CreateObject("WScript.NetWork")
strInfo = "Nome: " & objnet.Username & vbCrLf & _
"Computador: " & objnet.ComputerName & vbCrLf
txt.WriteLine (vbNewLine & strInfo)
End Function

Então se houver um log, apenas acrescenta.
Gostaria de saber se existe uma forma de escrever o caminho em um arquivo de
texto, ex:
ele abra na própri pasta o arquivo caminho.txt, dentro do arquivo de texto esta como "c:/servidor/ArquivosExcluidos.txt"
A partir dai ele cria o log exatamente neste caminho: "c:/servidor/ArquivosExcluidos.txt".

Alguem sabe como fazer isso?

precisava disto urgentemente... obrigado...

()ne()n