 Set fso = CreateObject("Scripting.FileSystemObject")
  Set folder = fso.GetFolder(".")
  Set files = folder.Files

  Set outFile = fso.CreateTextFile( folder & "\new.sfz" , True )
  keyCounter = 36

  for each objFile in files
     sName = objFile.Name
     if StrComp(Right(sName, 4), ".wav", 1) = 0 then
        outFile.WriteLine("<region> sample=" & sName & " key=" & keyCounter)
        keyCounter = keyCounter + 1
     end if
  next

  outFile.Close
  set files = nothing
  set folder = nothing
  set fsoFolder = nothing

