petit changement au code de fichier pour rechercher dans les dossiers réseau

[77marco77]

Bonjour.
le code ci-dessous fait ce qu'il a et le fait aussi très bien que j'ai déjà écrit pourle seul manque et que lors de l'ouverture de sa petite fenêtre d'explorateur à la recherche de fichiers dwg pour la mise à jour est capable de rechercher seulement localement (les disques c:, d: , un stylo USB si présent) mais "ne voit pas" et ne recherche pas dans les disques réseau. Je ramène ici le code : Quelqu'un pourrait-il faire la modification nécessaire pour "l'explorateur de fenêtres" du code aussi voir les disques réseau?

;(vl-load-com)
(defun browseforfolder (text rootfolder / ret y )
(setq y (vlax-get-or-create-objet "shell.application")
(si (setq ret (vlax-invoke y "browseforfolder" 0 texte 1 rootfolder))
(setq ret (vlax-get (vlax-get ret "self") "path"))
(vlax-release-objet y)
ret
)

(defun get_table (table / tb tb_ls)
(setq tb (table suivante t)
0 0
)
(alors que tb
(cond
((= (table à barres) "style")
(si (= (boole 1 (cdr (assoc 70 tb))) 1) 0);bit 1 bédeutet symbole, keine schrift!
(setq tb_ls (annexe tb_ls (liste (cdr (assoc 2 tb))))
)
)
((= (table des colonnes) "bloc")
(si (/= (sous-str) (cdr (assoc 2 tb)) 1) "*")
(setq tb_ls (annexe tb_ls (liste (cdr (assoc 2 tb))))
)
)
(t
(setq tb_ls (annexe tb_ls (liste (cdr (assoc 2 tb))))
)
)
(setq tb (table suivante))
)
(setq tb_ls (vl-sort tb_ls '<))
)


(défun c:all-block-upd ( / bl_liste fourt n bl_ex)
(setvar "cmdecho" 0)
(commander "_undo" "_be")
(setq bl_liste (get_table "block")
(si bl_pfad
(progrès
(initget "ja nein")
(setq fourt (mot getk) (mot "pfad" bl_pfad " verwenden ? <ja>)))
(si (= ant "nein") (setq bl-pfad (browseforfolder "blockpfad wählen:"""))
)
(setq bl_pfad (setq bl_pfad "blockpfad wählen:"""))
)
(pour chaque n bl_liste
(progrès
(setq bl_ex (strcat bl_pfad "\\" n ".dwg")
(si (findfile bl_ex) (command "_insérer" (strcat n"" bl_ex) zéro))
)
)
(commander "_undo" "_end")
(setvar "cmdecho" 1)
(prin1)
)

(défun c:block-upd ( / bl_liste ant n bl_ex)
(setvar "cmdecho" 0)
(commander "_undo" "_be")
(setq bl_liste (get_table "block")
(si bl_pfad
(progrès
(initget "ja nein")
(setq fourt (mot getk) (mot "pfad" bl_pfad " verwenden ? <ja>)))
(si (= ant "nein") (setq bl-pfad (browseforfolder "blockpfad wählen:"""))
)
(setq bl_pfad (setq bl_pfad "blockpfad wählen:"""))
)
(pour chaque n bl_liste
(progrès
(setq bl_ex (strcat bl_pfad "\\" n ".dwg")
(si (findfile bl_ex)
(progrès
(initget "ja nein")
(setq fourt (mot getk) (mot "bloc" n" aktualisieren ? <ja>)))
(si (/= ant "nein") (command "_insérer" (strcat n "= bl_ex) zéro))
)
)
)
)
(commander "_undo" "_end")
(setvar "cmdecho" 1)
(prin1)
)

(prompt "funktionen tout-block-upd und block-upd geladen.")</ja></ja></ja>