Works on 98, cant get to work on NT

[Karl Blessing]

I have an application, that is targeted at NT(but had to be developed on a 98 machine) after fixing alot of things, like removing references and using createObjecT() instead, I have this function that seems to be causing the program to just freeze and causes anything that it executes, to be frozen, or locked.<br><br>Public Function ExecCmd(cmdline$, curFolder$)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim proc As PROCESS_INFORMATION<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim start As STARTUPINFO<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim ret As Long<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;start.cb = Len(start)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Null, 0&, curFolder$, start, proc)<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ret& = WaitForSingleObject(proc.hProcess, INFINITE)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call GetExitCodeProcess(proc.hProcess, ret&)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call CloseHandle(proc.hThread)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call CloseHandle(proc.hProcess)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ExecCmd = ret&<br>&nbsp;&nbsp;End Function<br><br>the part that says NULL was originally CREATE_NO_WINDOW(&H8000000) , then changed to SW_SHOWNORMAL, still nothing, when i execute this dos exe manually, it'll extract fine, and shows fine, but if I execute it from the program, it either freezes, also I Want to be able to show it, since the extraction may take upto 3 mins, and I dont want the user reaching for their reset button thinking nothing is happening. any Ideas? <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=

http://kb244.8m.com>

</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

 

[Karl Blessing]

Ok So far I got the execution to work(replacing the NULL with Create_New_Console), but in ths next step of registration of componets, I get an error that says an ActiveX control can not register an object.<br><br>this is the function that is run when clicking Next, I'll bold the part that is run in a normal instalation situation.<br><br><FONT FACE=monospace><br><b><br>&nbsp;&nbsp;&nbsp;Dim fs&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot<br>&nbsp;&nbsp;&nbsp;Dim CurrFolder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set CurrFolder = CreateObject(&quot;Scripting.Folder&quot<br>&nbsp;&nbsp;&nbsp;Dim CurrFiles&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set CurrFiles = CreateObject(&quot;Scripting.Files&quot<br>&nbsp;&nbsp;&nbsp;Dim CurrFile&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set CurrFile = CreateObject(&quot;Scripting.File&quot<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;Dim ObjectPath&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As String<br>&nbsp;&nbsp;&nbsp;Dim FileExt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As String<br></b><br>If CopySite Then<br>&nbsp;&nbsp;&nbsp;If RegDll Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NextForm<br>&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If ScriptExist Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim itmcpy As Items<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim MsgBoxStr As Variant<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim Ubnd As Long, Lbnd As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim FileN As String<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For Each itmcpy In Ini.Section(&quot;ActiveX&quot.Items<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBoxStr = SplitAndDecode(itmcpy.Name)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Ubnd = UBound(MsgBoxStr)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Lbnd = LBound(MsgBoxStr)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If (MsgBoxStr(Lbnd) = &quot;AddNoReg&quot; Or MsgBoxStr(Lbnd) = &quot;AddReg&quot; Or _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBoxStr(Lbnd) = &quot;UnReg&quot; Or MsgBoxStr(Lbnd) = &quot;ReplaceReg&quot; Or _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBoxStr(Lbnd) = &quot;ReplaceNoReg&quot Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If fs.FolderExists(WinSysDir & ComponetPath) = False Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fs.CreateFolder WinSysDir & ComponetPath<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case MsgBoxStr(Lbnd)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case &quot;Reg&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RegisterObject WinSysDir & ComponetPath & MsgBoxStr(Lbnd + 1)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case &quot;UnReg&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;UnRegisterObject WinSysDir & ComponetPath & MsgBoxStr(Lbnd + 1)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RegDll = True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NextForm<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If fs.FolderExists(WinSysDir & ComponetPath) = False Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fs.CreateFolder WinSysDir & ComponetPath<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lblContents.Caption = &quot;Now Registering...&quot; & vbCrLf<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set CurrFolder = fs.GetFolder(WebServer & SarasRoot & DLLsrc)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set CurrFiles = CurrFolder.Files<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For Each CurrFile In CurrFiles<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ObjectPath = CurrFile.Path<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FileExt = fs.GetExtensionName(ObjectPath)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If LCase(FileExt) = &quot;dll&quot; Or LCase(FileExt) = &quot;ocx&quot; Or LCase(FileExt) = &quot;exe&quot; Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lblContents.Caption = lblContents.Caption & &quot;&nbsp;&nbsp;&nbsp;&quot; & CurrFile.Name & &quot;.........&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fs.CopyFile ObjectPath, WinSysDir & ComponetPath & &quot;\&quot; & CurrFile.Name, True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If LCase(FileExt) = &quot;exe&quot; Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RegisterObject WinSysDir & ComponetPath & CurrFile.Name, True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RegisterObject WinSysDir & ComponetPath & CurrFile.Name<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lblContents.Caption = lblContents.Caption & &quot;Done&quot; & vbCrLf<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lblContents.Caption = lblContents.Caption & vbCrLf & &quot;Complete&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RegDll = True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NextForm<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br></b><br>&nbsp;&nbsp;&nbsp;End If<br>Else<br>&nbsp;&nbsp;&nbsp;MsgBox &quot;You need to chose the proper paths&quot;, vbCritical And vbOKOnly<br>&nbsp;&nbsp;&nbsp;PreviousForm<br>End If<br></font><br><br>and here is the function RegisterObject<br><br><FONT FACE=monospace><br>Public Sub RegisterObject(ByVal File As String, Optional IsExe As Boolean = False)<br>&nbsp;&nbsp;&nbsp;Dim cmdline&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As String<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;If IsExe Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cmdline = File & &quot; \register&quot;<br>&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;cmdline = WinSysDir & &quot;\regsvr32.exe /s &quot; & File<br>&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;ExecCmd cmdline, WinSysDir<br>&nbsp;&nbsp;&nbsp;<br>End Sub<br></font><br><br>the ExeCmd can bee seen in the post above. <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=

http://kb244.8m.com>

</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

 

[Karl Blessing]

I feel it might be best to add, that I only have 3 references included in the project(all other references were removed, and I used runtime uses of the DLLs, so that the references would not have a problem) <br><br><i>Visual Basic for Applications</i> <font color=red>MSVBVM60.dll</font><br><i>Visual Basic Runtime objects and procedures</i> <font color=red>MSVBVM60.dll \3</font><br><i>Visual Basic Objects and procedures</i> <font color=red>VB6.olb</font><br><br><br>Just in case any of you guys ask me about the references, and also I am not using any ActiveX controls in my application.<br> <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=

http://kb244.8m.com>

</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

 

[Karl Blessing]

I seem to have isolated the problem, when the Next button is clicked, I put a bunch of MsgBox to check when the error occurs<br><br><FONT FACE=monospace><br>&nbsp;&nbsp;&nbsp;MsgBox &quot;Before Objects are created&quot;, vbOKOnly<br>&nbsp;&nbsp;&nbsp;Dim fs&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot<br>&nbsp;&nbsp;&nbsp;Dim CurrFolder&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set CurrFolder = CreateObject(&quot;Scripting.Folder&quot<br>&nbsp;&nbsp;&nbsp;Dim CurrFiles&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set CurrFiles = CreateObject(&quot;Scripting.Files&quot<br>&nbsp;&nbsp;&nbsp;Dim CurrFile&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As Object<br>&nbsp;&nbsp;&nbsp;Set CurrFile = CreateObject(&quot;Scripting.File&quot<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;Dim ObjectPath&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As String<br>&nbsp;&nbsp;&nbsp;Dim FileExt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;As String<br>&nbsp;&nbsp;&nbsp;MsgBox &quot;After Objects Created&quot;, vbOKOnly<br></font><br>the first MSgBox executes, but never reaches the second, it has an error box, Titled by the exe's name, then it says , Runtime Error '429':<br>ActiveX componets cant's create object.<br><br><br>anyone have any clues about this?<br> <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=

http://kb244.8m.com>

</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

 

[Karl Blessing]

it appears that in this particular program, either win98 and NT do not like CreateObject, other than Scripting.FilesystemObject, sO I basically just declared them as objects, and had them Assigned when the FSO returnd an object. I'll see if the rest of the program continues to work , as well on NT <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=

http://kb244.8m.com>

</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

 

[Swanson]

Here is the information from Microsoft. Hope it helps.<br><br><A HREF="

http://support.microsoft.com/support/kb/articles/Q185/1/26.ASP"

TARGET="_new">

http://support.microsoft.com/support/kb/articles/Q185/1/26.ASP</A>

 

[NickBulka]

Install the windows scripting runtime <p>nick bulka<br><a href=mailto: > </a><br><a href= > </a><br>

 

[Karl Blessing]

No need nick, I managed to just create the File Folder, etc as just object, and had them set to the return of the file system object, that way, it still works, with a minimum of reference declared, I was going to post this, but computer locked up earlier, I got it all fixed up <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=

http://kb244.8m.com>

</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)