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