créer un nouveau dossier macro

[samurai76]

Salut à tout le monde, désolé mais pour éviter la confusion j'ai ouvert une autre discussion en me liant à ce qui suit:
https://www.cad3d.it/forum1/threads/esportazione-automatica-idw-to-pdf-dxf.42618/J'utilise les macros pour exporter les fichiers idw en pdf et dxf et il fonctionne parfaitement (ringrazio cataphraseMais j'aurais besoin d'une paresse. Je voudrais créer, dans le répertoire où se trouve l'idw, un sous-dossier (par exemple ...\dxf-pdf... bien que non présent) dans lequel enregistrer la sortie de la macro.
ce qui peut faire le code ci-dessous (je ne me souviens pas où et édité à doc) inséré en règle dans ilogic mais je ne peux pas entrer la macro ci-dessus.

code syntaxeditor snippetopath = cedoc. chemin
ofilename = thisdoc.filename(false) 'sans extension
'orevnum = iproperties.value("projet", "numéro de révision")
'orevnum = iproperties.value("projet", "coché par")
opdfaddin = cette application.applicationaddins.itembyid _
({0ac6fd96-2f4d-42ce-8be0-8aea580399e4})
odocument = cette demande.document actif
ocontext = thisapplication.transientobjets.createtranslationcontext
ocontext.type = iomechanisme.kfilebrowseiomechanism
ooptions = thisapplication.transientobjets.createnamevaluemap
odatamedium = cette application.transientobjets.createdatamedium
currentdate = string.format("{0: mm.dd.yyy}",datetime.now)

si opdfaddin.hassavecopyasoptions(odocument, ocontext, ooptions) alors
ooptions.value("all_color_as_black") = 0
ooptions.value("remove_line_weights") = 1
ooptions.value("vector_resolution") = 400
ooptions.value("sheet_range") = inventeur.printrangeenum.kprintallsheets
'ooptions.value("custom_begin_sheet") = 2'ooptions.value("custom_end_sheet") = 4
fin si

'get pdf chemin du dossier cible
ofolder = thisdoc.path & "\pdfs" 'au lieu de "k:\dwg\pdf\"

«Vérifiez le dossier pdf et créez-le s'il n'existe pas
si pas system.io.directory.exists(ofolder) alors
system.io.directory.createdirectory(ofolder)
fin si

« définissez le nom du fichier cible pdf
odatamedium.filename = ofolder & "\" & ofilename & _
"_rev" & currentdate & ".pdf"

'document publié
opdfaddin.savecopyas(odocument, ocontext, ooptions, odatamedium)

merci pour la disponibilité
Samuèle