ࡱ> Root EntryRoot Entry O#VBA_Project`%:08MVBA_Project_Version(VBA 08M08M   !"#$%&'()*+,-./0123456789:;<=>?@ABCDFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijlmnopqrstuvwxyz{|}~acID="{D5CAA40C-5EF5-4411-BCA1-0D20E75DA027}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F7F51B16E5FAD8FED8FED8FED8FE" DPB="EEEC022F0ED104D204D204" GC="E5E70924F71AF81AF8E5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=22, 29, 982, 387, UserForm108M08MPROJECTwm DPROJECTf UserForm1=22, 29, 982, 387, , 0, 0, 960, 358, Z ThisDrawingThisDrawingUserForm1UserForm10* pHd ACADProject8@ = t  R^G( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms3 ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Microsoft o CompObj aVBFrame$ThisDrawing ktUserForm1Ej _VBA_PROJECT dir : ^ Ob Library/;D1u00}#0#k0 A4BA17263B90-4C51-A0C1-0AAE89@D9F8286DOKUME~1\weca\LOKALATemp\VBE\S.exd ; .E .`PM ABDFYBThisDrawingGT@ijDrawing* 2 HB1~BE,B LX"B+B Userq1G!e!1! 2 MO ]@M C ()!am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlb#AutoCAD 2008 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{4BA172E1-3B90-4C51-A0C1-0AAE89D9F828}#2.0#0#C:\DOKUME~1\weca\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  R^G FYThisDrawing1P47d55e78ThisDrawingLX~UserForm11R47d55e78UserForm1]8jIÇNEL)H"%()publicSubAutoCAD"VBAWin16~Win32MacVBA6#Projekt1Astdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ UserForm1)MSFormsCfolderQUserFormNTextBox1SoShell1U CreateObjectoFolder>BrowseForFolder ValueKSelfPath2ShowCommandButton1|CommandButton1_ClickClick_B_var_oFolderLabel1, Label1_ClickTextBox1_Change=UserForm_ClickUserForm_Initialize5c TestDialogT  $X_WFYj?bLDJc.޷zB"4V׵"xMEPSPSSS<<<<0{3ACD2774-C302-433D-83A2-FF12BBC283C5}{067FE5E1-CE55-40FF-87A5-07C862AC4981}`H0(%X0 %80(h `"x %% 4`@ei \i i i 8X @H @i   0L"  "(8$P  >3 ] Dim oFolder As ObjectShell.Application$$."Bitte einen Ordner auswhlen "%(.& &` &!,!. (d*$Texbox1 bekommt den Pfad zugewiesen.k o Attribute VB_Name = "UserForm1" " Bas0{3ACD2774-C302-433D-83A2-FF12BBC283C5}{067FE5E1-CE55-40FF-87A5-07C862AC4981} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP Sub CommandButton1_Click() Dim oShell As Object ' Folder  Set= e ("(.App5ation"7*=.Br0owse{(0@, "Biteinen Ordn!auswhlen", 1C"If No#Ishing 0Then-TextBox1.do .Self.Path '@Bb@ bekMt dPfad zugewiesen.End 0If Y E8xFYLX#<:|UtN%qiAzyL$jq#މ *B9pxމ *B9p:|UtN%qiAMEPSLSS6"<<<<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} (%8 D`|@ % % 88x@0R^G $*\Rffff*1P47d55e784" (8op B@0XAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Public Sub TestDialog() UserForm1.Sho@w End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 1440 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 3 End  Microsoft Forms 2.0 FormEmbedded Object9qH,S,5Tahoma((Folder-Dialog aufrufenOuTahoma( Rckgabe:i5Tahoma  }t $4TextBox1E4,HCommandButton1E(2<Label1x1