Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Inventor 11 ignoriert Initialisierungspfad

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:  Inventor 11 ignoriert Initialisierungspfad (463 mal gelesen)
InventorUser
Mitglied


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

Beiträge: 1
Registriert: 04.01.2007

erstellt am: 04. Jan. 2007 17:19    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 zusammen,
für eine VBA-Anwendung in Inventor habe einen Common Dialog verwendet (siehe Code). Leider wird der Initialisierungspfad den ich im Code vorgebe von der Anwendung nicht verwendet, sondern der Pfad der letzten Inventor Abspeicherung (Inventor 11), wie kann ich das Problem lösen?


Sub CommandButton3_Click()

    Dim BrowsePath As String
    Dim OldPath As String
    Dim OpenClick As Boolean

    OldPath = Pfad_Init

    With Me.cdlg3
        .CancelError = True
        OpenClick = Not .CancelError
        .InitDir = OldPath
        .filename = "_" 'important - "Open" click is not possible without any file name given
        .Filter = "Verzeichnisse|*.NoFiles|All Files (*.*)|*.*"
        .DialogTitle = "Pfad auswählen"
        On Error GoTo CancelClick
        .ShowOpen
        OpenClick = True
CancelClick:
        'OpenClick is still "Not .CancelError" (mostly False), if the error occured
    End With 'Me.cdlg1

    If OpenClick Then
        BrowsePath = CurDir + "\"
    Else
        ChDir OldPath ' important, because the current path changes automatically while browsing
        BrowsePath = OldPath
    End If

    Label5.Caption = BrowsePath

End Sub

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