|
Inventor VBA : Datei öffnen speichern schliessen
daywa1k3r am 13.02.2007 um 11:04 Uhr (1)
ThisApplication.SilentOperation = trueund wenn du fertig bist, auf jeden Fall die ThisApplication.SilentOperation = false sonst hast du gar keine Meldungen mehr.------------------Grüße IgorFX64 Software SolutionsHMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei öffnen speichern schliessen
Thunja am 18.01.2021 um 08:02 Uhr (1)
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!Hallo zusammen, ich habe arbeite an der Zusammenfassung von mehreren Schritten in einen. Ich würde gerne zuvor überprüfen, ob das ActiveDocument ausgechekct ist. Ich habe versucht, die Eigenschaft durch Variablenüberwachund zu suchen, war aber erfolglos. Kann mir jemadn sagen, wo sich die Eigenschaft versteckt, ob das Dokument ausgecheckt ist? Das wäre mir eine große Hilfe. Vielen Dank! Edit 8:30Ich habe eine Eigenschaft gefunden, die heißt ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Prüfen ob Datei ausgecheckt ist
Thunja am 18.01.2021 um 14:32 Uhr (1)
Ich habe grad mit nem Autodesk Experten wegen dem Schreibschutz geschrieben, da ich auch eine Prüfbedingung für "Datei ausgecheckt" brauchte. Seine Aussage war, dass der Schreibschutz bestehen bleibt, es sei denn, der User hebt ihn manuell über Windows auf. Den Schreibschutz kann man über die Eigenschaft "vbReadOnly" abfragen.Dass der User das BT ändern kann, weil er im Dialog zustimmt, ändert nichts an der Eigenschaft Schreibschutz (vbReadOnly). Die dazugehörige Eigenschaft heißt "IsModifiable". Diese wir ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Meierjo am 01.02.2021 um 13:50 Uhr (1)
HalloKann denn die Datei (mit den neun ersten Stellen) mehrmals existieren?Soll eine Meldung erscheinen, oder soll die Datei einfach gelöscht werden?Gruss
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Bluejay am 01.02.2021 um 14:33 Uhr (15)
Danke für die Fragen:- die Datei kann nur einmal existieren und soll einfach gelöscht werden.Gruss------------------MFGBlueJay
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Bluejay am 02.02.2021 um 10:30 Uhr (1)
Vielen Dank für die Hilfe - habe es mit dem Code versucht aber ohne Erfolg. Wie bekomme ich das Programm dazu - in einem festem Ordner die Dateinamen mit dem neuen Dateinamen (siehe Zeile) zu vergleichen und falls vorhanden (sieh angehängte Datei) zu löschen. Es soll immer nur der letzte Index im Verzeichniss bleiben.oData.filename = "G:CAD Vereinfachungen" & sPropValue & "_" & sPropValue1 & ".stp"Vielen Dank noch mal ------------------MFGBlueJay
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
bkrüger am 02.02.2021 um 11:05 Uhr (1)
Hallo,Löschen, falls Datei vohanden:Code:If Dir(oData.FileName, vbNormal) "" Then Kill (oData.FileName)oder gleich Kill(oData.FileName), da musst du aber den Fehler abfangen, wenn die Datei nicht existieren sollte.Anmerkung zum Step-Export: Der überschreibt doch sowieso eine existierende Datei (oder hat das irgendwo als Option)Grüsse
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Meierjo am 02.02.2021 um 11:09 Uhr (1)
HalloDeswegen habe ich ja oben gefragt, ob du direkt im Root speicherst.Wenn der Speicherort immer derselbe ist, kannst du das im Code anpassenCode:pSTR = "G:CAD Vereinfachungen"In der vorherigen Antwort hast du geschrieben, es existiere nur 1 DateiNun schreibst du, es soll nur immer der letzte Index bleiben?Ist nicht dasselbeWo steht der Index?Am besten postest du den ganzen Code, und schreibst nochmal dazu, was den jetzt genau passieren sollGruss
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
rkauskh am 02.02.2021 um 11:20 Uhr (1)
HalloKillt alle Files mit gleichem Namensmuster. Sollte VOR dem Export der neuen Version ausgeführt werden, sonst ist die gleich wieder mit weg.Code:Dim sFileName As StringsFileName = Dir("G:CAD-Vereinfachungen" & "" & sPropValue & "*.stp")If Not sFileName = "" Then Kill "G:CAD-Vereinfachungen" & sFileName Do While sFileName "" sFileName = Dir Kill "G:CAD-Vereinfachungen" & sFileName LoopEnd If------------------MfGRalfRKW Solutions GmbHwww.RKW-Solutions.com
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
EIBe 3D am 02.02.2021 um 14:30 Uhr (1)
@Meierjo:Warum hast du den Code von dir und rkaush kombiniert? M.E. deckt der Code von rkaush doch alles ab und ist auch ein wenig leichter navollziehbar.GrüßeEIBe 3D
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Meierjo am 02.02.2021 um 15:16 Uhr (1)
Hallo Elbe 3DJa, hast recht, der Code von rkaush deckt alles ab.EDIT:Zuerst hatte der Code von rkaush nicht funktioniert, da habe ich ein wenig rumgepröbelt, und meinen Codeschnipsel dazugepflastert (ich gebe zu, ist nicht der schönste Code)Und als es dann funktionierte, habe ich es so belassenHabe erst zu spät gemerkt, dass der Code von rkaush nur nicht funktioniert, weil er einen Bindestrich anstelle Leerschlag im Ordner drin hatte, und somit natürlich keine Dateien gelöscht werden konntenGruss[Diese Nac ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
EIBe 3D am 02.02.2021 um 16:34 Uhr (1)
Danke, nun ists klar. Dachte schon ich hätte irgendwas übersehen.GrüßeEIBe 3D
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Bluejay am 03.02.2021 um 09:02 Uhr (1)
Guten Morgen zusammen,vielen Dank an euch alle für die super Unterstützung - ich habe den Code noch so angepasst dass er sich nicht mehr aufhängt und nun macht er was er soll. Und gelernt habe ich auch wieder etwas - Dank dafürDim sFileName As StringsFileName = Dir("H:TEST" & sPropValue & "_" & "**.stp")If Not sFileName = "" Then Kill "H:TEST" & sFileName Do While sFileName = "" sFileName = Dir Kill "H:TEST" & sFileName LoopEnd If------------------MFGBlueJay
|
| In das Form Inventor VBA wechseln |
