FolderItem IsLink problem
Jimekus
I got prjShelObj which was contributed seven years ago by
salex_software and, like others, I'm getting an Error 91 in Sub
GetLinkInfo. This is because ifItem.IsLink is always returning False
on my WinXP SP3 VB6 SP6 system, and thus not setting the work object.
If I manually bypass the IsLink test and set the object, the program
continues, so I don't think it is a fault of the program, but
something in my environment.
What I'm trying to do is to mass edit a huge swag of movie shortcuts
to make them portable for usb drives.
Anybody got any clues?
C. Kevin Provance
--
2025
If you do not believe in time travel,
your beliefs are about to be tempered.
http://www.facebook.com/group.php?gid=43606237254
"Jimekus" <jim...@gmail.com> wrote in message
news:0e04b4ec-ba2b-48e0...@d21g2000yqn.googlegroups.com...
Jimekus
> Have you tried contacting the author?
>
what luck can one realistically expect from a seven year old email
address.
Furthermore, this list is more influential and an answer here would
help more people than a private email.
I've even noticed that Microsoft have linked a recent thread from here
into their knowledge base regarding the installation of VB6 on Windows
7. The bit about setup failing at the end, trying to find a certain
java dll.
Nobody
news:0e04b4ec-ba2b-48e0...@d21g2000yqn.googlegroups.com...
> From http://www.planetsourcecode.com/vb/s...42621&lngWId=1
Link broken.
> What I'm trying to do is to mass edit a huge swag of movie shortcuts
> to make them portable for usb drives.
If you mean IE shortcuts, they are in INI file format. Just try opening them
with Notepad. However, this may change in the future.
Bob Butler
"Jimekus" <jim...@gmail.com> wrote in message
news:0e04b4ec-ba2b-48e0...@d21g2000yqn.googlegroups.com...
> From http://www.planetsourcecode.com/vb/s...42621&lngWId=1
That link is not valid
> I got prjShelObj which was contributed seven years ago by
> salex_software and, like others, I'm getting an Error 91 in Sub
> GetLinkInfo. This is because ifItem.IsLink is always returning False
> on my WinXP SP3 VB6 SP6 system, and thus not setting the work object.
with no info on what it is supposed to do and no code there's not much to be
said about it
mscir
Is this the correct page?
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=42621&lngWId=1
Mike
--- news://freenews.netfront.net/ - complaints: ne...@netfront.net ---
mscir
If you add this debug line what do you see?
Debug.Print "type " & ifItem.Type
If ifItem.IsLink = True Then
...
Jimekus
>
> If you add this debug line what do you see?
>
> Debug.Print "type " & ifItem.Type
> If ifItem.IsLink = True Then
> ...
>
> Mike
>
Thanks Mike. Sorry about not realizing the visual Url, which I cut and
pasted, was munged. The one you found was the right one.
My debug.print shows "type Shortcut" but the .IsLink still says False.
I suppose I could just change the program to test for .Type =
"Shortcut", but I'm still curious as to what went wrong.
mscir
Does your project include a Reference to Microsoft Shell Controls and
Automation ?
Does this ever return a true for .isLink?
Private Sub Command1_Click()
Dim s As Shell
Dim fi As FolderItem
Dim f As Folder
Dim l As ShellLinkObject
Dim i As Long
Set s = New Shell
Set f = s.BrowseForFolder(Me.hWnd, "Select Folder", 0, ssfDESKTOP)
For i = 0 To f.Items.Count - 1
Set fi = f.Items.Item(i)
If fi.IsLink Then
Set l = fi.GetLink
MsgBox fi.Name & vbCrLf & _
l.Description & vbCrLf & _
l.Path & vbCrLf & _
l.WorkingDirectory & vbCrLf & _
l.ShowCommand
End If
Next
Set l = Nothing
Set fi = Nothing
Set f = Nothing
Set s = Nothing
End Sub
--- news://freenews.netfront.net/ - complaints: ne...@netfront.net ---
Nobody
> "Shortcut", but I'm still curious as to what went wrong.
Error 91 means that you refereed to an object without checking if it's
"Nothing". To avoid this, use:
If Not obj Is Nothing Then
' Add code here
End If
Jimekus
> Jimekus wrote:
> >> If you add this debug line what do you see?
>
> >> Debug.Print "type " & ifItem.Type
> >> If ifItem.IsLink = True Then
> >> ...
>
> >> Mike
>
> >> --- news://freenews.netfront.net/ - complaints: n...@netfront.net ---
>
> > Thanks Mike. Sorry about not realizing the visual Url, which I cut and
> > pasted, was munged. The one you found was the right one.
>
> > My debug.print shows "type Shortcut" but the .IsLink still says False.
> > I suppose I could just change the program to test for .Type =
> > "Shortcut", but I'm still curious as to what went wrong.
>
> Does your project include a Reference to Microsoft Shell Controls and
> Automation ?
>
> Does this ever return a true for .isLink?
>
true on my C3245 24/7 laptop, which recently had a clean install. On
my failover SN45G, with a mainly identical one year old WinXP, the
code returns True. So it is an environment problem. </scratches head>
Nobody, 91 alerted me to the problem and I traced the problem from
there.
Jimekus
A third PC, an Asus P5KPL-AM dual core, shows the same problem, but an
XP clean install into its spare partition, with nothing but VB6,
doesn't show the fault. I'm jumping to the conclusion that the two
fails used Avira, whereas the SN45G still used AVG anti-virus.
Interestingly, on the two with Avira, when VB6 SP6 was being added a
Windows Restart was required, which is the first time I've seen this.
Shell32.dll on the SN45G and C3245 show the same version.
I'll try a few more installs and post something more later on.
Jeff Johnson
> besides, what luck can one realistically expect from a seven year old
> email address.
For what it's worth, I still use one that I got in 1996. I would think that
as long as it's a non-ISP-specific address, there's a decent chance. In
other words, Hotmail, Yahoo, or other free Web-based service addresses
probably have a much better chance of still being in use than Earthlink,
RoadRunner, AOL, etc.
mscir
Are you considering unplugging from the internet and turning off the
anti-virus program to see if the code starts working?
--- news://freenews.netfront.net/ - complaints: ne...@netfront.net ---
Jimekus
> Are you considering unplugging from the internet and turning off the
> anti-virus program to see if the code starts working?
>
I did disable the internet and another clean XP install on my P5KPL-AM
dual core turned up no connection to the anti-virus and IsLink
returned True right up to the point when I installed dotNet3.5, which
forced me to connect to the Internet to get its service pack 1. This
was needed for the ATI Catalyst system. Nothing makes too much sense
as my old C3245 doesn't need 3.5, but it did get the Net 2.0 for
another program. Another un-run program installed after Avira was
TotalMedia 3.5, which controls my digital TV, but for several reboots
until Catalyst was installed, IsLink was still working.
Karl E. Peterson
> I've even noticed that Microsoft have linked a recent thread from here
> into their knowledge base regarding the installation of VB6 on Windows
> 7. The bit about setup failing at the end, trying to find a certain
> java dll.
Which KB article?
--
.NET: It's About Trust!
http://vfred.mvps.org
Dee Earley
> besides, what luck can one realistically expect from a seven year old
> email address.
My site (in various guises) and email has existed for 10.5 years now :)
(Probably explains the thousands of spam emails a day!)
--
Dee Earley (dee.e...@icode.co.uk)
i-Catcher Development Team
iCode Systems
Nobody
news:eljpcIRm...@TK2MSFTNGP06.phx.gbl...
> My site (in various guises) and email has existed for 10.5 years now :)
> (Probably explains the thousands of spam emails a day!)
You need to replace every email listed in web pages with a link to Contact
Us page, which should use a form to submit questions. At the very least, you
can replace email addresses with JavaScript that encrypts the email, so a
bot can't see it. You can also use "SetTimeout" so the emails only appear
after few seconds, to insure that a human being is viewing the page.
Karl E. Peterson
Or you can just shrug, realize "spam happens", and get on with life. I
quit worrying about this at least a decade ago. My own email addresses
have been public for longer than that, and easily collect 40k
spams/day, or would if bothered to count. Nearly all are rejected by
the server long before I'd have the chance.