'*** v9.3 *** www.dieseyer.de ****************************** 
' 
' Datei:  dateispeichernunter.vbs 
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de 
'
' Die Prozedur ist Bestandteil von WinTuC_vbs.vbs (WinTuC.de)
'
'*********************************************************** 

Option Explicit
  Dim Txt
  Txt =		"1. Zeile"	& vbCRLF
  Txt = Txt &	"2. Zeile"	& vbCRLF
  Txt = Txt &	"3. Zeile"	& vbCRLF
  Txt = Txt &	"4. Zeile"	& vbCRLF
  
  Dim ZielDatei	: ZielDatei = "Zeilen.txt"
  
  Call DatenInDateiSpeichernunter( ZielDatei, Txt )
  
  CreateObject("WScript.Shell").Run "notepad " & ZielDatei, , False

Wscript.Quit 


'*** v9.3 *** www.dieseyer.de ****************************** 
Sub DatenInDateiSpeichernunter( Datei, Txt )
'*********************************************************** 
  Dim	RC 
  Dim	objDialog
  Set	objDialog = CreateObject("SAFRCFileDlg.FileSave")
	objDialog.FileName = Datei
	objDialog.FileType = "LST Dateien(*.lst)"
	RC = objDialog.OpenFileSaveDlg

  If RC Then CreateObject("Scripting.FileSystemObject").CreateTextFile( objDialog.FileName ).Write Txt 

End Sub ' DatenInDateiSpeichernunter( Datei, Txt )