Set objFSO = CreateObject( scr ipting.FileSystemObject ) Set objTS = objFSO.OpenTextFile( users.txt ) Set objLog = objFSO.OpenTextFile( lognames.txt ) Set objBat = objFSO.CreateTextFile( newfolders.bat ) Do strLog = objLog.ReadLine strU