Hallo
Ich möchte eines Makro schreiben, welsches für jedes gefündetes CATDrawing unter ein Ordner (inklusiv Unterordnern) ein PDF schreibst, aber ohne Detail sheet).
Ich kann zur Zeit ein Hauptordnerpfad mit solche Funktion definieren:
Code:
Function BrowseForFolderDialogBox() As StringConst WINDOW_HANDLE = 0
Const NO_OPTIONS = &H1
Dim objShellApp
Dim objFolder
Dim objFldrItem
Dim objPath
'initialize
Dim strTitle As String
strTitle = "Select main folder"
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.BrowseForFolder(WINDOW_HANDLE, strTitle, NO_OPTIONS)
If objFolder Is Nothing Then
MsgBox "You choose to cancel. This will stop this script."
End
Else
Set objFldrItem = objFolder.Self
objPath = objFldrItem.Path
End If
BrowseForFolderDialogBox = objPath
Set objShellApp = Nothing
Set objFolder = Nothing
Set objFldrItem = Nothing
End Function
Das PDF-export mache ich so, das für jedes CADDrawing erstelle ich Zwischenzeichnung, kopiere ich alle Blattern, welche nicht Detailblatt sind, und mache ich ein export.
Aber überhaupt kann ich nicht rekursiv Funktion für den Pfad schreiben
Kann mir jemand mit das helfen?
Sorry für mein schlecht Deutsch
Gruß
Lukas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP