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!!!!!
Rispondi quotando
