'*** 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 )