jnowlin
asked on
FileSystemObject
Hi.
I have a browser form in my project. I'd like to be able to load my HTML resume within this browser from the frmAbout. I was looking in MSDN Help at the FileSystemObject. I tried to declare a variable of type FileSystemObject, but apparently I don't have it. It must be a control or a reference that I haven't included.
Is this the right approach and ,if so, where is this control located?
Jim
I have a browser form in my project. I'd like to be able to load my HTML resume within this browser from the frmAbout. I was looking in MSDN Help at the FileSystemObject. I tried to declare a variable of type FileSystemObject, but apparently I don't have it. It must be a control or a reference that I haven't included.
Is this the right approach and ,if so, where is this control located?
Jim
inowlin, the filesystemobject is part of the microsoft scripting runtime (scrrun.dll). goto to projects menu, and references and scroll thru till you see microsoft scripting runtime and check it. then you'll see filesystemobject as part of a type when declaring variables.
i've used this in the past and it has some good features but, it can be a slow beast.
have fun.
ed.
i've used this in the past and it has some good features but, it can be a slow beast.
have fun.
ed.
why do you think you need FSO? are you using webbrowser control? if so, simply...
WebBrowser.Navigate "C:\path\Resume.html"
WebBrowser.Navigate "C:\path\Resume.html"
ASKER
AzraSound,
I thought the FileSystemObject was what i needed.
When I tried the WebBrowser control, as in the clicked event of the control went:
Dim res1 As WebBrowser
res1.Navigate "c:\resume1.htm"
I got the Object variable or With block variable Not Set.
run-time error 91.
Did I leave out another reference for the project?
I thought the FileSystemObject was what i needed.
When I tried the WebBrowser control, as in the clicked event of the control went:
Dim res1 As WebBrowser
res1.Navigate "c:\resume1.htm"
I got the Object variable or With block variable Not Set.
run-time error 91.
Did I leave out another reference for the project?
the webbrowser control is just that, a control. you add it to a form and then use it via code. if this is not what you are after, then perhaps you are after automating an instance of IE.
ASKER
Originally, I did think of automating an instance of IE. Actually, one of the buttons I added to this project was to try and use the Shell command to launch IE. It worked with NotePad and Windows Explorer but it crashed, unable to find the file: IEXPLORE.EXE. Strange.
Anyway, as above, when I defined res1, one of the data types in the list was WebBrowser V1.
But, it's a control you say. I don't have it on my toolbar. Which component do I need to add to the project?
Jim
Anyway, as above, when I defined res1, one of the data types in the list was WebBrowser V1.
But, it's a control you say. I don't have it on my toolbar. Which component do I need to add to the project?
Jim
to use the webbrowser control on a form:
go to project -> COMPONENTS and select Microsoft Internet Controls. you will then see a small globe icon in your toolbar which denotes that component
to automate IE:
go to project -> REFERENCES and select Microsoft Internet Controls. you can then use code like the following:
Private WithEvents IEObj As SHDocVw.InternetExplorer
Private Sub Form_Load()
Set IEObj = New SHDocVw.InternetExplorer
IEObj.Navigate "C:\path\Resume.html"
IEObj.Visible = True
End Sub
go to project -> COMPONENTS and select Microsoft Internet Controls. you will then see a small globe icon in your toolbar which denotes that component
to automate IE:
go to project -> REFERENCES and select Microsoft Internet Controls. you can then use code like the following:
Private WithEvents IEObj As SHDocVw.InternetExplorer
Private Sub Form_Load()
Set IEObj = New SHDocVw.InternetExplorer
IEObj.Navigate "C:\path\Resume.html"
IEObj.Visible = True
End Sub
ASKER
AzraSound,
the WebBrowser control works. It's slick.
When I created a new form, frmIE
and put
Private WithEvents IEObj As SHDocVwCtl.InternetExplore
' SHDocVw was not an available type
into the Genneral declaration
and the following into frmIE's Form_Load event, as in
Private Sub Form_Load()
Set IEObj = New SHDocVw.InternetExplorer
IEObj.Navigate "C:\Resume1_VBApp.html"
IEObj.Visible = True
End Sub
and then, in a menu's Clicked event do the
frmIE.Show
I can hear IE starting to launch but then I get a Run-time error # 430- "Class does not support Automation or does not support expected interface"
I'm using VB 6.0 Professional SP3. Is this Class perhaps only available in the Enterprise version of VB?
Jim
the WebBrowser control works. It's slick.
When I created a new form, frmIE
and put
Private WithEvents IEObj As SHDocVwCtl.InternetExplore
' SHDocVw was not an available type
into the Genneral declaration
and the following into frmIE's Form_Load event, as in
Private Sub Form_Load()
Set IEObj = New SHDocVw.InternetExplorer
IEObj.Navigate "C:\Resume1_VBApp.html"
IEObj.Visible = True
End Sub
and then, in a menu's Clicked event do the
frmIE.Show
I can hear IE starting to launch but then I get a Run-time error # 430- "Class does not support Automation or does not support expected interface"
I'm using VB 6.0 Professional SP3. Is this Class perhaps only available in the Enterprise version of VB?
Jim
>>Private WithEvents IEObj As SHDocVwCtl.InternetExplore
>>' SHDocVw was not an available type
if you wish to automate IE, you need to go into Project -> References and select Microsoft Internet Controls, in addition, or as opposed to, going into Project -> Components (if you already have it checked in Project -> Components, it may appear checked under References as well, but it really isnt. you will want to scroll down and find it in the list and select it again)
>>' SHDocVw was not an available type
if you wish to automate IE, you need to go into Project -> References and select Microsoft Internet Controls, in addition, or as opposed to, going into Project -> Components (if you already have it checked in Project -> Components, it may appear checked under References as well, but it really isnt. you will want to scroll down and find it in the list and select it again)
jnowlin:
>When I tried the WebBrowser control, as in the clicked
>event of the control went:
>Dim res1 As WebBrowser
>
>
>res1.Navigate "c:\resume1.htm"
>I got the Object variable or With block variable Not Set.
>run-time error 91.
>
>Did I leave out another reference for the project?
Just thought I'd clear up one point of confusion. First, I don't think you can use this ActiveX Control (i.e. WebBrowser) in this manner. But this is not the problem I wanted to address. I wanted to address the issue of "Object Variable Not Set".
When you declare an object variable, such as your "res1" above, you have not yet created an instance of that object. All you've done is created a reference and have informed the compiler that it will be a reference to that particular type of object.
For example:
Dim w As Widget
This does not create a Widget Object. It does create a Widget reference, named 'w'; but currently, that reference does not point to any Widget object. Its value is 'Nothing'. (i.e. it points to nothing)
Now consider the following:
Dim w As Widget
Set w = New Widget
The Set-statement above actually creates a new Widget object, and causes the reference 'w' to point to that Widget object. The object variable 'w' now contains a reference to the newly-created Widget object.
Consider the following code:
Dim w1 As Widget
Dim w2 As Widget
Dim w3 As Widget
Dim w4 As Widget
Set w1 = New Widget
Set w2 = New Widget
Set w3 = New Widget
Now, with this code how many Widget objects do you have? The answer is 3. w1 is a reference to the first Widget; w2 is a reference to the second Widget; w3 is a reference to the third Widget; and although w4 is also a Widget Reference Variable (i.e. object variable), it does not refer to any existing object; it points to Nothing; it has not been set. Make sense?
Now study the following code:
Dim w1 As Widget
Dim w2 As Widget
Dim w3 As Widget
Dim w4 As Widget
Set w1 = New Widget
Set w2 = w1
Set w3 = w1
Set w4 = w3
How many Widget objects have been created? The answer is 1. You have 4 Widget References, all of which point to the very same object (i.e. Widget)
Now, let's revisit your sample code:
Dim res1 As WebBrowser
res1.Navigate "c:\resume1.htm"
In the first line, you've created an object variable (res1) which you've stipulated can store a reference to a WebBrowser object. (again, we're assuming that 'WebBrowser' is a valid Object Class). So 'res1' is a WebBrowser reference, but does not yet point to any object; it has not been set; it points to Nothing.
Then, in the second line, you are instructing the WebBrowser Object (to which res1 refers) to invoke its Navigate() method. The problem is that res1 does not refer to any object, so that non-existant object cannot invoke the navigate method.
Hence, the reason you got the error: "Object variable or With Block variable Not Set"
Make sense?
-Dennis Borg
>When I tried the WebBrowser control, as in the clicked
>event of the control went:
>Dim res1 As WebBrowser
>
>
>res1.Navigate "c:\resume1.htm"
>I got the Object variable or With block variable Not Set.
>run-time error 91.
>
>Did I leave out another reference for the project?
Just thought I'd clear up one point of confusion. First, I don't think you can use this ActiveX Control (i.e. WebBrowser) in this manner. But this is not the problem I wanted to address. I wanted to address the issue of "Object Variable Not Set".
When you declare an object variable, such as your "res1" above, you have not yet created an instance of that object. All you've done is created a reference and have informed the compiler that it will be a reference to that particular type of object.
For example:
Dim w As Widget
This does not create a Widget Object. It does create a Widget reference, named 'w'; but currently, that reference does not point to any Widget object. Its value is 'Nothing'. (i.e. it points to nothing)
Now consider the following:
Dim w As Widget
Set w = New Widget
The Set-statement above actually creates a new Widget object, and causes the reference 'w' to point to that Widget object. The object variable 'w' now contains a reference to the newly-created Widget object.
Consider the following code:
Dim w1 As Widget
Dim w2 As Widget
Dim w3 As Widget
Dim w4 As Widget
Set w1 = New Widget
Set w2 = New Widget
Set w3 = New Widget
Now, with this code how many Widget objects do you have? The answer is 3. w1 is a reference to the first Widget; w2 is a reference to the second Widget; w3 is a reference to the third Widget; and although w4 is also a Widget Reference Variable (i.e. object variable), it does not refer to any existing object; it points to Nothing; it has not been set. Make sense?
Now study the following code:
Dim w1 As Widget
Dim w2 As Widget
Dim w3 As Widget
Dim w4 As Widget
Set w1 = New Widget
Set w2 = w1
Set w3 = w1
Set w4 = w3
How many Widget objects have been created? The answer is 1. You have 4 Widget References, all of which point to the very same object (i.e. Widget)
Now, let's revisit your sample code:
Dim res1 As WebBrowser
res1.Navigate "c:\resume1.htm"
In the first line, you've created an object variable (res1) which you've stipulated can store a reference to a WebBrowser object. (again, we're assuming that 'WebBrowser' is a valid Object Class). So 'res1' is a WebBrowser reference, but does not yet point to any object; it has not been set; it points to Nothing.
Then, in the second line, you are instructing the WebBrowser Object (to which res1 refers) to invoke its Navigate() method. The problem is that res1 does not refer to any object, so that non-existant object cannot invoke the navigate method.
Hence, the reason you got the error: "Object variable or With Block variable Not Set"
Make sense?
-Dennis Borg
<ping>
ASKER
Yes DennisBorg, it makes sense. Just a oversight by me due to a misfiring brain cell or two. :)
I'll correct that easily enough.
wsh2 -
<ping> ??
I'll correct that easily enough.
wsh2 -
<ping> ??
jnowlin:
Glad you understand. ;-)
FYI - You inquired as to the meaning of the "ping" message given by wsh2. The ping simply means that the person may not have a solution, but is interested in learning what the solution is. This allows for them to be notified via e-mail as additional comments are made, just like the subscribe feature, but with the added ability to turn the e-mail notifications off, should a lengthy discussion continue after the question is closed by a answer being chosen. Another benefit would be to allow one to read the answer without having to spend the points.
In short, it simply means the person is "listening in, in hopes of learning something new"
-Dennis Borg
Glad you understand. ;-)
FYI - You inquired as to the meaning of the "ping" message given by wsh2. The ping simply means that the person may not have a solution, but is interested in learning what the solution is. This allows for them to be notified via e-mail as additional comments are made, just like the subscribe feature, but with the added ability to turn the e-mail notifications off, should a lengthy discussion continue after the question is closed by a answer being chosen. Another benefit would be to allow one to read the answer without having to spend the points.
In short, it simply means the person is "listening in, in hopes of learning something new"
-Dennis Borg
ASKER
Ah, OK.
I couldn't for the life of me figure out what that was.
AzraSound,
>>the WebBrowser control works. It's slick.
Yes. But, when I close the form it's on, I get "This Program has performed an illegal action and will be shut down.", and VB crashes. I am missing something. The WebBrowser is a control on another form, named, wb1. And, on the Form Load event of frmJim, this is placed there:
wb1.Navigate "C:\VB_Audit\resume1_VBApp
opening my resume (RESUME1.HTM) and displaying it correctly within the control (wb1).
Do I need to perfom some file closing on the Form Unload event?
I couldn't for the life of me figure out what that was.
AzraSound,
>>the WebBrowser control works. It's slick.
Yes. But, when I close the form it's on, I get "This Program has performed an illegal action and will be shut down.", and VB crashes. I am missing something. The WebBrowser is a control on another form, named, wb1. And, on the Form Load event of frmJim, this is placed there:
wb1.Navigate "C:\VB_Audit\resume1_VBApp
opening my resume (RESUME1.HTM) and displaying it correctly within the control (wb1).
Do I need to perfom some file closing on the Form Unload event?
strange...what version of IE do you use? if IE5 or above, you may look at upgrading to SP4. i have used the control many times before and never received such an error.
what other tasks are you performing in your app? any subclassing? any memory copying/moving APIs being used?
what other tasks are you performing in your app? any subclassing? any memory copying/moving APIs being used?
ASKER
I have one function CheckSpelling() which creates Word objects and performs SendKeys ^c True to copy text from a text file into Word, invoke the spell checker, leave the spell checker, take the changed text and paste it back into the original file.....it crashes also. I have a couple of forms which use a Adodc control on each to get data from the NorthWind database.
It's not yet THAT complex, I don't think.
It's IE 5.5 but I don't know what Service Pack it is.
I've been trying to add someone's code to display messages in the status bar. I was told that I need to subclass but subclassing is very new to me. I don't as yet have any APIs in this project.
It's not yet THAT complex, I don't think.
It's IE 5.5 but I don't know what Service Pack it is.
I've been trying to add someone's code to display messages in the status bar. I was told that I need to subclass but subclassing is very new to me. I don't as yet have any APIs in this project.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
This Word automation code was given to me, with comments.
At the end of the CheckSpelling() function, the objects created are destroyed
Set wordApp = Nothing
Set wordDoc = Nothing
Yes, checking into the object model appears to be worth a try, for sure. It's kind of cool (should it work and assuming the user has Office installed) to be able to load a text file in, check the spelling correcting any errors and return the spell-checked text to the file to be saved(overwritten).
VB's SP4 is good to get, I'm sure. I was not aware that there was a SP beyond SP3. VB has been crashing each and every time I try to end (within the IDE) this program. I try to click on 'End' or 'Debug' when an error occurs, and VB goes down in flames. This frequency of crashes seems to coincide with the addition to this project of the WebBrowser control and the ability to load my resume file into it, hence, the issue of VB 6 SP3 and IE 5.5.
Well, it looks like it's gone on far enough with this question! Time for an 'A', I'd say.
Jim
At the end of the CheckSpelling() function, the objects created are destroyed
Set wordApp = Nothing
Set wordDoc = Nothing
Yes, checking into the object model appears to be worth a try, for sure. It's kind of cool (should it work and assuming the user has Office installed) to be able to load a text file in, check the spelling correcting any errors and return the spell-checked text to the file to be saved(overwritten).
VB's SP4 is good to get, I'm sure. I was not aware that there was a SP beyond SP3. VB has been crashing each and every time I try to end (within the IDE) this program. I try to click on 'End' or 'Debug' when an error occurs, and VB goes down in flames. This frequency of crashes seems to coincide with the addition to this project of the WebBrowser control and the ability to load my resume file into it, hence, the issue of VB 6 SP3 and IE 5.5.
Well, it looks like it's gone on far enough with this question! Time for an 'A', I'd say.
Jim
ASKER
eab,
AzraSound had the more complete answer. It was more involved and it was also where I was headed.
Thanks.
Jim
AzraSound had the more complete answer. It was more involved and it was also where I was headed.
Thanks.
Jim
ASKER
Hey AzraSound, thanks again.
I was working with subclassing code from expert 'Richie_Simonetti', trying to get text messages into the status bar of the MDI main form. What he sent me was working on an SDI form. I started a new project, an SDI project. It works but only in an SDI program. Also, I downloaded both Visual Basic 6.0 Service pack 4 *and* Service Pack 5. VB's IDE STILL crashes, even after an install of SP4. Interestingly enough, when I removed the subclassing code module from the MDI project, VB became much more stable. So, VB 6.0, doesn't like subclassing. Richie_Simonetti seems to understand that subclassing is in more widespread use using Visual C++ due to the fact that one is able to code at the lower level required.
That's all for this question. I'm sure I'll have more as time goes on and on and.....
Thanks again,
Jim Nowlin
I was working with subclassing code from expert 'Richie_Simonetti', trying to get text messages into the status bar of the MDI main form. What he sent me was working on an SDI form. I started a new project, an SDI project. It works but only in an SDI program. Also, I downloaded both Visual Basic 6.0 Service pack 4 *and* Service Pack 5. VB's IDE STILL crashes, even after an install of SP4. Interestingly enough, when I removed the subclassing code module from the MDI project, VB became much more stable. So, VB 6.0, doesn't like subclassing. Richie_Simonetti seems to understand that subclassing is in more widespread use using Visual C++ due to the fact that one is able to code at the lower level required.
That's all for this question. I'm sure I'll have more as time goes on and on and.....
Thanks again,
Jim Nowlin
>>So, VB 6.0, doesn't like subclassing
just ensure that the code the begins subclassing a window is also properly cleaned up by unsubclassing that window before your program exits. often times this is found in your form's unload event. therefore, also ensure that you do not simply use the "Stop" button in the IDE to end your program as that will not call your form's unload event, and is generally just a bad practice since it introduces abnormal termination of your program. you should always end your program just as a user would, via the "X" on your MDI form, for example.
just ensure that the code the begins subclassing a window is also properly cleaned up by unsubclassing that window before your program exits. often times this is found in your form's unload event. therefore, also ensure that you do not simply use the "Stop" button in the IDE to end your program as that will not call your form's unload event, and is generally just a bad practice since it introduces abnormal termination of your program. you should always end your program just as a user would, via the "X" on your MDI form, for example.
Chandu