Showing results 1 to 3 of 3

Thread: Speichern unter Dialog

  1. #1

    Default Speichern unter Dialog

    Hallo,
    ist es möglich in der zenon runtime den Standart speichern unter dialog aufzurufen?
    Der Code der unter excel funktioniert scheint leider trotz der zugehörigen verweise nicht zu funktionieren
    Dim Dateiname As Variant
            Dateiname = Application.GetSaveAsFilename( _
            InitialFileName:="", _
            Filefilter:="SQL-Backup Dateien (*.bak),*.bak", _
            FilterIndex:=1, _
            Title:="Speichern unter...", _
            ButtonText:="Abspeichern")
    Gibt es einen entsprechenden Dialog, oder muss ich auf eine externe exe zurückgreifen. Auch andere Ideen sind gerne wilkommen
    Hintergrund: Es soll der Speicherort für ein Backup eines SQL-Servers ausgewählt werden.

    Mfg
    Matthias

  2. #2
    Join Date
    30.05.2007
    Location
    Salzburg
    Posts
    879

    Default Re: Speichern unter Dialog

    Probier mal folgendes:

    Funktion:

    Private Function showFolderDialog() As String
        Dim obShellApp As Object
        Dim obSelFolder As Object
    
        Set obShellApp = CreateObject("Shell.Application")
        Set obSelFolder = obShellApp.BrowseForFolder(0, "Select where the File (*.bak) should be saved.. ", 512)
    
        If Not obSelFolder Is Nothing Then
            showFolderDialog = obSelFolder.Self.Path
    
            'The target folder path needs to have a \ on the End
            If Right(showFolderDialog, 1) <> "\" Then showFolderDialog = showFolderDialog & "\"
        End If
    
        Set obSelFolder = Nothing
        Set obShellApp = Nothing
    End Function

    Aufruf per:
    Private Sub SaveFileTo()
        Dim myFolder As String
    
        myFolder = showFolderDialog
        If myFolder = "" Then
            MsgBox "No valid file path has been selected!"
            Exit Sub
        End If
    
        '... weitere Code mit gültigem Dateipfad (myFolder)
    End Sub

    Es würde auch mit CommonDialog Control gehen (braucht eine Referenz dafür - Common Dialog Control 6.0)

    Gruß,
    Herbert

  3. #3

    Default AW: Speichern unter Dialog

    Vielen dank, hatte zwar probleme mit einem Verweis funktioniert jetzt aber.
    Danke
    Mfg
    Matthias

Similar Threads

  1. Problem mit SE Treiber unter zenon 6.xx
    By markusw in forum Drivers
    Replies: 2
    Last Post: 21st April 2009, 15:05

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •