OpenOffice.info

Hallo

Schade, daß man aus den einfachen griffigen Beispielen aus Dannenhöfer solch einen Krampf zusammenklöppelt!

Sieh halt zu daß du die sinnfreien Sonderzeichen und Leerzeichen aus dem Pfad rausschmeisst, und durchgängig /Slashes durch \Backslashes ersetzt.
das file:/// -prefix ist wohl auch unnötig?!

Hallo erst mal...
Ich habe mir mit dem Code vom Dannehöfer ein Makro gebastelt.
Das auf eine Datei "RECHNUNGSNUMMER.txt" mit dem Pfad: "C:/• DATEN/• RECHNUNGEN/" zugreift.
Das funktioniert auf meinem Notebook mit WIN 11 Home einwandfrei.
Auf meinem Rechner mit WIN 11 Pro geht das aber nicht.
Bei WIN 11 Pro kann ich mit dem Code nicht auf den Pfad zugreifen.
Kennt jemand das Problem und hat eine Idee für eine Lösung???

Mein Code:

function GetAndSetNumber as string
dim f as Integer
dim rechnungsdatei as string
dim renummer as string
dim Pfad as string
Pfad ="C:/• DATEN/• RECHNUNGEN/"
rechnungsdatei = Pfad & "RECHNUNGSNUMMER.txt"
if FileExists("file:///"&rechnungsdatei) then
f = FreeFile()
Open "file:///"&rechnungsdatei for Input as #f
Line Input #f, renummer
close #f
'---------------------------------------------------------------------------------------------
msg = msgbox (renummer &" Rechnungsnummer einfügen ??? ",4,"<<< RECHNUNGSNUMMER >>>")
if msg = 6 then

'---------------------------------------------------------------------------------------------
f = FreeFile()
Open "file:///"&rechnungsdatei for output as #f
Print #f, val(renummer)+1
close #f
'-------------------------------------------------------------------
GetAndSetNumber=renummer
exit function
'----------------------------------------------------------------------------------------------
else
Manuell=Inputbox("RECHNUNGSNUMMER EINGABE:","<<< RECHNUNGSNUMMER >>>")
if Manuell = "" then
REALT=val(renummer)-1
GetAndSetNumber=REALT
exit function
else
renummer = Manuell
f = FreeFile()
Open "file:///"&rechnungsdatei for output as #f
Print #f, val(renummer)+1
close #f
end if
end if
'----------------------------------------------------------------------------------------------
else
msgbox ("!!! Datei RECHNUNGSNUMMER nicht vorhanden !!!",0,"DATEI RECHNUNGSNUMMER")
endif
GetAndSetNumber=renummer
end function

Bin für jede Idee Dankbar, hab keine Idee wie ich das lösen kann!!!
Gruß MT