Umgebungsvariablen
17.01.2023 07:35:56
Günther
ich versuche nun schon x-ten mal nachfolgenden Code abzuändern, damit Umgebungsvariablen greifen. Ich bekomme es aber nicht hin. Ich hoffe, Ihr versteht was ich meine. Überall anders im Quellcode habe ich z.B. C:\users\user\ durch Environ("homedrive") & Environ("homepath") ersetzen können. Nur hier klappt es nicht.
Dieser funktioniert
PN = "C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & _
"""C:\Users\user\Nextcloud\Betriebe\" & kd & "\*.pdf"" cat output ""C:\Users\user\Nextcloud\Betriebe\" & kd & "\" & Date & "_Gesamt.pdf"""
Diese möchte ich aber mit folgender Umgebungsvariablen umbauen....geht aber nicht. Wird im Editor immer rot angezeigt.
kd_path = Environ("homedrive") & Environ("homepath") & "\nextcloud\betriebe\" & kd
pdf_path = Environ("homedrive") & Environ("homepath") & "\nextcloud\betriebe\"
If Dir(kd_path, vbDirectory) = "" Then
MkDir (kd_path)
End If
File = Dir(Environ("homedrive") & Environ("homepath") & "\nextcloud\betriebe\" & kd & "\_Gesamt.pdf")
File = Dir(Environ("homedrive") & Environ("homepath") & "\nextcloud\betriebe\" & kd & "\*.pdf")
'File = Dir("C:\Users\user\Nextcloud\Betriebe\" & kd & "\_Gesamt.pdf")
'File = Dir("C:\Users\user\Nextcloud\Betriebe\" & kd & "\*.pdf")
If File "" Then
PN = "C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & pdf_path & kd & "\*.pdf" cat output pdf_path & kd & "\" & Date & "_Gesamt.pdf"