topic Re: in VBA Forum

how to open the all files in a certain folder in vba.

Anonymous — Wed, 10 Sep 2003 21:16:37 GMT

Re: how to open the all files in a certain folder in vba.

Anonymous — Wed, 10 Sep 2003 22:23:29 GMT

Using the Scripting runtime(scrrun.dll):



Option Explicit

Option Compare Text



Dim intSDI As Integer

Dim objFSO As Scripting.FileSystemObject

Dim objFolder As Scripting.Folder

Dim objFile As Scripting.File

intSDI = ThisDrawing.GetVariable("SDI")

ThisDrawing.SetVariable "SDI", 0

Set objFSO = New Scripting.FileSystemObject

Set objFolder = objFSO.GetFolder("YOUR PATH")

For Each objFile In objFolder.Files

    If objFile.Name Like "*.dwg" = True Then

        Application.Documents.Open "YOUR PATH" & objFile.Name

        

        ThisDrawing.Save

        ThisDrawing.Close

Next objFile

ThisDrawing.SetVariable "SDI", intSDI

Regards - Nathan

Re:

Anonymous — Thu, 11 Sep 2003 16:26:52 GMT

THANKS FOR YOUR ADVICE.

but　it　is　beyond　my ken , what is
Scripting.FileSystemObject .

i am very sorry,for i am new to
vba.

thank you after all.

regards

Re:

Anonymous — Thu, 11 Sep 2003 17:30:23 GMT

if you're in vba go to tools|references

set a reference to Microsoft Scripting
Runtime

the filesystemobject is one of the objects
available in that reference

go to objectbrowser to see what
objects, methods and properties are available

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"youngman" <
href="mailto:youngmanca@hotmail.com">youngmanca@hotmail.com> wrote in
message
href="news:22C69973711AEB434D98A968E8008FB1@in.WebX.maYIadrTaRb">news:22C69973711AEB434D98A968E8008FB1@in.WebX.maYIadrTaRb...

THANKS FOR YOUR ADVICE.

but　it　is　beyond　my ken , what is
Scripting.FileSystemObject .

i am very sorry,for i am new to
vba.

thank you after all.

size=2>regards

Re:

Anonymous — Sun, 14 Sep 2003 20:52:38 GMT

THANKS FOR YOUR ADVICE.

i got it.thanks

regards

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"Mark Propst" <mark-at-atreng-dot-com> wrote in message
href="news:FA82B7F87A3E1D387F9F93F435DED5D5@in.WebX.maYIadrTaRb">news:FA82B7F87A3E1D387F9F93F435DED5D5@in.WebX.maYIadrTaRb...

if you're in vba go to tools|references

set a reference to Microsoft Scripting
Runtime

the filesystemobject is one of the objects
available in that reference

go to objectbrowser to see what
objects, methods and properties are available

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

"youngman" <
href="mailto:youngmanca@hotmail.com">youngmanca@hotmail.com> wrote in
message
href="news:22C69973711AEB434D98A968E8008FB1@in.WebX.maYIadrTaRb">news:22C69973711AEB434D98A968E8008FB1@in.WebX.maYIadrTaRb...

THANKS FOR YOUR ADVICE.

but　it　is　beyond　my ken , what is
Scripting.FileSystemObject .

i am very sorry,for i am new to
vba.

thank you after all.

size=2>regards