13 Replies Latest reply on May 21, 2012 8:40 AM by Chris Day

    VBA FileSystemObject problem?

    Chris Day

      Hi,

       

      I'm trying to add functionality to a working macro, making the macro "remember" the last user input. Taking a page from Matthew Lorono's book [RevBlockAdd v1.13], I inserted this code just to check if a file is avaliable (as a first step).

       

          DefaultDrawn = swApp.GetCurrentMacroPathFolder             ' Get macro path

        DefaultDrawn = DefaultDrawn + "\AddRevision.ini"           ' Set source filename

        Set fso = CreateObject("Scripting.FileSystemObject")

        If fso.FileExists(DefaultDrawn) Then                       ' Does source file exist?

          Set DefaultDrawnFile = fso.OpenTextFile(DefaultDrawn, 1)

            MsgBox ("AddRevision.ini exists"), vbInformation

        Else

            MsgBox ("AddRevision.ini does not exist"), vbInformation

        End If

       

      When I run the macro, I get the error "Object variable or With block variable not set," which points to the line where the UserForm which contains the code above is loaded.

      I installed SCRRUN.DLL using the Insert > Components and browsing for the DLL in Window's System32 folder. It didn't seem to add any lines of code.

       

      As far as I can see the code is identical to the code in RevBlockAdd except for some changes in variable names. Is there anything else I need to include that I'm missing? I've attached my macro if a more in-depth look is required.

       

      Thanks in advance.