OpenOffice.info

Code: Alles auswählen

'Schreiben der Ini-Datei
sPfad = "D:\settings.ini"
FileNo = Freefile()
If FileExists(sPfad) Then
Open sPfad For Output As #FileNo
Print #FileNo, "Testtext"
Close #FileNo
End If

End Sub

Code: Alles auswählen

aFile = "c:\daten.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Das ist eine Zeile Text"
Print #iNumber, "Das ist eine weitere Zeile Text"
Close #iNumber

Code: Alles auswählen

Sub Create_file
	Dim oDocument as object
	dim myFileProp(0) as New com.sun.star.beans.PropertyValue
    myFileProp(0).name="Hidden"
    myFileProp(0).value=True 
	oDocument = StarDesktop.loadComponentFromURL ("private:factory/swriter","_blank", 0, myFileProp())
	If Fileexists("File:///D:/Test/Inifile.ini")= false  then
	dim dummy()
	oDocument.storeToURL(("File:///D:/Test/Inifile.ini") , dummy())
	msgbox "Die Datei wurde erstellt"
    else
    msgbox "Die Datei ist schon vorhanden"
	exit sub
	end if	
End Sub

Code: Alles auswählen

Sub Write_Ini
   
	'*******Pfad anpassen******************************
	myfile="D:/Test/Inifile.ini"
	'***************************************************
	if FileExists("file:///" & myfile) then
   
		f1 = FreeFile()
       
		'#f1 = FreeFile()
		Open "file:///" & myfile for output as #f1 'Schreiben
		Print #f1, "Text 1"
		Print #f1, "Text 2"
		Print #f1, "Text 3"
		close #f1
	msgbox "Der Text wurde eingetragen"
	else
	msgbox "Datei nicht vorhanden"
        endif    
end sub