Aiutoooo.....

E da due giorni che sbatto la testa....

ho uno script asp che nn riesco a fare funzionare.

ho la necessità di leggere dei file da una cartella, file che si aggiornano di continuo con estensione progressiva (del tipo *.056, *.057 ...)

ecco lo script:

Dim objFso, objFolder, objFiles, strFolder, strFile
Dim leggi_file
Dim titolo, testo, sottotitolo

strPath = "new"

Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

'Faccio un loop tra tutti i files
For Each strFile in objFiles

If Left(strFile.Name,2)="20" Then

'Apro il file in lettura
Set leggi_file=objFso.OpenTextFile(strPath & strFile.Name)

If strFile.Size > 0 Then

'Queste tre linee contengono informazioni che non ci interessano
InStream.SkipLine()
InStream.SkipLine()
InStream.SkipLine()

'Ora invece prendo la linea con il titolo
titolo=InStream.ReadLine()

'Quindi quella con il sottotitolo (non sempre presente)
sottotitolo=InStream.ReadLine()

'Infine leggo tutte le righe seguenti che contengono il testo
Do While Not InStream.AtEndOfStream
testo=InStream.ReadLine
Loop

End If

'Chiudo quindi il file
Set leggi_file=Nothing

'Quindi lo cancello
objFso.DeleteFile strPath & strFile.Name

End If

Next

Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing



GRAZIE!!!!!