[VBA] Editare tutti i file, con stessa estensione, in una cartella

[Tgerx]

Ciao a tutti,
sto utilizzando questo script per editare dei file di testo, ora avrei necessità di modificare vari file con una determinata estensione ( pcf o rdp ).
Non riesco a identificare il tipo di file, sapete aiutarmi???


ecco lo script:

Call Main

Sub Main
Dim fso, folder, files, NewsFile,sFolder, homeDesk
Set Shell = WScript.CreateObject( "WScript.Shell" )
homeDesk = Shell.ExpandEnvironmentStrings("%HOMEPATH%")
'WScript.Echo(homeDesk)

Set fso = CreateObject("Scripting.FileSystemObject")
  sFolder = homeDesk & "\Desktop\term"
'fso.CopyFolder sFolder, sFolder & ".OLD",True  
  
  If sFolder = "" Then
      WScript.Echo "No Folder parameter was passed"
      Wscript.Quit
  End If

Set folder = fso.GetFolder(sFolder)
Set files = folder.Files
 
For each folderIdx In files
'WScript.Echo(folderIdx.Path)
 Call SostDM (folderIdx.Path, folderIdx.Name)
Next
WScript.echo ("Procedura modifica Link completata con successo!" & vbCrLf & "Premere OK per Treminare")
End Sub

Sub SostDM (SostDMFileName, FileName)
Dim ReadFile, ReadFileTEXT, ReadFileTEXTNEW
Const ForReading = 1
Const ForWriting = 2

'WScript.Echo (SostDMFileName)
Set fso = CreateObject("Scripting.FileSystemObject")
Set ReadFile = fso.OpenTextFile(SostDMFileName, ForReading, False)
ReadFileTEXT = ReadFile.ReadAll
ReadFile.Close
'WScript.Echo (ReadFileTEXT & "1")
ReadFileTEXTNEW = Replace(ReadFileTEXT, "username:s:old.Dominio1", "username:s:new.Dominio1")
ReadFileTEXTNEW = Replace(ReadFileTEXT,"username:s:old.Dominio2", "username:s:new.Dominio2")
ReadFileTEXTNEW = Replace(ReadFileTEXT, "old.Dominio3", "new.Dominio3")
ReadFileTEXTNEW = Replace(ReadFileTEXT,"old.Dominio4", "new.Dominio4")
'WScript.Echo (ReadFileTEXTNEW & "2")
If ReadFileTEXT = ReadFileTEXTNEW Then 
								  'WScript.Echo ("Non ci sono state sostituzioni nel file: " & SostDMFileName) 
								  Else 
								  WScript.Echo ("Sostituzioni effetuate nel file: " & FileName & vbCrLf & "Premere OK per continuare.")
								  Set WriteFile = fso.OpenTextFile(SostDMFileName, ForWriting)
								  WriteFile.WriteLine ReadFileTEXTNEW
								  WriteFile.Close
End If
End Sub

TG

[gibra]

Nel ciclo For/Next ti basta controllare l'estensione del file,
ed esegui la sostituzione solo se corrisponde a quella che serve a te.