Ciao a tutti..
volevo una vostra consulenza, ho due file .mef3 (come dei txt), lancio il vbs, gli dico cosa cancellare e lui nel primo me lo cancella e mi crea il file giusto sotto output, nel secondo lo cancella ma me lo crea con l'accodamento del primo.. credo questo perchè non si "resetta" il contenitore dove metto i file da riscivere...

cmq ho bisogno di voi!
questo è il codice:
-----------------

'Programma cancellazione Utenze da file MEF3

Utenza = inputbox ("Inserire Utenza Da Eliminare", "Input")
If utenza <> "" Then

Const ForReading = 1
Const ForWriting = 2

Dim file
Set objFSO = CreateObject("Scripting.FileSystemObject")


'I file da elaborare vengono messi nella sottocartella database
Set cartella = objfso.GetFolder("./database")

'Leggo i file della cartella uno per uno
For Each file In cartella.Files

Set objTextFile = objFSO.OpenTextFile(file, ForReading)

'Memorizzo tutti i record del file tranne quelli contenenti l'elemento cercato
Do While objtextFile.AtEndOfStream <> true
strNextLine = objTextFile.Readline
intCheckForBugComment = Instr(strNextLine, utenza)
If intCheckForBugComment = 0 Then
strSavedLines = strSavedLines & strNextLine & VbCrLf
End If
Loop
objTextfile.close

'copio quanto memorizzato su un file con il nome dell'originale e estensione modificata
Output = file & "txt"
Set objTextFile2 = objFSO.CreateTextFile (Output)
objTextFile2.Write strSavedLines
objTextFile2.Close

Next


'Ricavo percorso

Dim oFso, oScriptFile
Dim sScriptName, sScriptPath
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oScriptFile = oFso.GetFile(Wscript.ScriptFullName)
sScriptName = oScriptFile.Name
sScriptPath = oScriptFile.ParentFolder
'msgbox sScriptPath

'Sporto file creati in cartella output
Source = sScriptPath & "\database\*.mef3txt"
Destination = sScriptPath & "\output\"



Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile Source , Destination


'Rinomino i file su cartella Output

Set WshShell = WScript.CreateObject("WScript.Shell")

strCommand = sScriptPath & "\rename.bat"

WshShell.Run strCommand,1 , True

MsgBox "Finito"
Else
MsgBox "Utenza non valida", vbokonly+vbcritical , "Error"
End If