Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Probleme beim Speichern einer Datei unter Programme (x86) mit VBA

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Probleme beim Speichern einer Datei unter Programme (x86) mit VBA (955 mal gelesen)
WolfgangSCH
Mitglied



Sehen Sie sich das Profil von WolfgangSCH an!   Senden Sie eine Private Message an WolfgangSCH  Schreiben Sie einen Gästebucheintrag für WolfgangSCH

Beiträge: 145
Registriert: 01.10.2002

AutoCAD 2021
Windows 10 64-bit

erstellt am: 07. Jul. 2016 10:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ich bin gerade dabei mit VBA ein kleines Makro zu schreiben. Hierbei soll eine Textdatei, in welcher ich den zuletz besuchten Pfad speichern möchte im Ordner der Applikation (C:\Programme (x86)\Autodesk\AutoCAD 2014\CAD-Utilities) gespeichert werden. Hierbei erhlte ich die Fehlermeldung Laufzeitfehler 75: Fehler beim Zugriff auf Pfad/Datei. Wenn ich das Makro in einem Testordner starte wird die Datei einwandfrei angelegt und auch gelesen. Ich vermute das ich zum Anlegen und Öffnen der Datei im Ordner der Applikation Administratorrechte benötige. Wie kann ich die Datei mit Administratorrechten anlegen?

Hier ein Auszug aus dem Code:

    DNr = FreeFile
    SatzVar.Feld1 = "C:\"                                          ' Datensatzfeld 1 in Datei Options.dat (zuletzt besuchter Pfad)
    SatzVar.Feld2 = ""                                              ' Datensatzfeld 2 in Datei Options.dat (Reserve)
    strPath = App_Path                                              ' Pfad der Applikation
    DateiName$ = strPath & "Options.dat"
    If Not FileExists(DateiName$) Then                              ' Datei Options.dat wird mit 1 leeren Datensatz angelegt, wenn sie nicht existiert
        Open DateiName$ For Random As #DNr Len = Len(SatzVar)
        Put #DNr, , SatzVar
        Close #DNr
    Else                                                            ' andernfalls wird sie ausgelesen
        Temp = "C:\"
        Auslesen
    End If

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365

erstellt am: 07. Jul. 2016 12:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für WolfgangSCH 10 Unities + Antwort hilfreich

Servus, hm du müsstest Acad mit Adminrechten starten, würde das aber nicht empfehlen. Leichter Sicherer einfach ein anderes Verzeichnis verwenden.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche:
Tabllen (XLS,ODS) FDO nativ einbinden,  FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF
Fehler:
FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben

Schöne Grüsse aus der Steiermark  Bernd P.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz