Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.CreateTextFile("C:\ExcelSitesi\TextDosyam.txt")