Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Webfolders and the WebBrowser Navigate method

0 views
Skip to first unread message

Lars Balker Rasmussen

unread,
Dec 3, 2000, 3:00:00 AM12/3/00
to
I can easily get a new InternetExplorer window to open an URL supplied
to the Navigate method, but Is it at all possible to simulate the
behaviour you get when choosing File->Open, typing in the URL, and
selecting "Open as Web Folder"?

One'd think there'd be a bit supplied in BrowserNavConstants or
something, but I sure can't find anything. I'd much rather not
implement my own WebDAV-browser, when IE does an adequate job...
--
Lars Balker Rasmussen "Woo hoo!?"

Lars Balker Rasmussen

unread,
Dec 3, 2000, 5:40:37 PM12/3/00
to

Lars Balker Rasmussen

unread,
Dec 6, 2000, 3:00:00 AM12/6/00
to
Lars Balker Rasmussen <la...@balker.org> writes:
> I can easily get a new InternetExplorer window to open an URL supplied
> to the Navigate method, but is it at all possible to simulate the

> behaviour you get when choosing File->Open, typing in the URL, and
> selecting "Open as Web Folder"?
>
> One'd think there'd be a bit supplied in BrowserNavConstants or
> something, but I sure can't find anything. I'd much rather not
> implement my own WebDAV-browser, when IE does an adequate job...

Interestingly(?!) this doesn't seem to be possible at all. I put an
"event-sniffer"[1] on InternetExplorer and opened the same
webdav-enabled site in two sessions with or without "Open as Web
Folder" selected. No discernable differences.

So, back to the drawing-board after having wasted far too much time.
Thanks...

[1] From:
http://www.perlmonth.com/features/ole_controls/ole_controls.html?issue=3

use Win32::OLE qw(EVENTS);
use Win32::OLE::Variant;
$|=1;

$ie = new Win32::OLE('InternetExplorer.Application');
$ie->{visible} = 1;

sub Event {
my ($obj,$event,@args) = @_;
print "Event: $event\n";
for my $arg (@args) {
my $value = $arg;
$value = sprintf "[%s %s]",
Win32::OLE->QueryObjectType($value)
if UNIVERSAL::isa($value, 'Win32::OLE');
print " arg: $value\n";
}
}

Win32::OLE->WithEvents($ie, \&Event, 'DWebBrowserEvents2');

while (1) {
Win32::OLE->SpinMessageLoop;
Win32::Sleep(100);

0 new messages