Conoscere dove punta un collegamento.

Article View: free.it.visual-basic

Article #2448

Back to free.it.visual-basic Previous Next

#2448

From: luckydor
Date: Mon, 05 May 2003 16:17

26 lines
1803 bytes

Ho un collegamento sul Desktop che punta a WinZip 7.0

Se apro la finestra di dialogo e clikko su WinZip 7.0

Private Sub Command1_Click()
  CommonDialog1.ShowOpen
  xcorso = CommonDialog1.FileName
End Sub

Mi ritorna il percorso dell'.exe.

Disgraziatamente il file lo trascino da esplora risorse cos�:

Private Sub Form_Load()
  Picture1.OLEDropMode = 1
End Sub
Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button
As Integer, Shift As Integer, X As Single, Y As Single)
  If Data.GetFormat(vbCFFiles) Then
  MyFile = (Data.Files(1))
  '' mi ritorna il xcorso del Link e non il Link-ato
  End If
End Sub

Conoscete un modo semplice;
senza andare a leggere nel link.

Technical Details

Message-ID: <a8wta.45154$3M4.1232287@news1.tin.it>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!diablo.theplanet.net!newsfeed.icl.net!newsfeed.fjserv.net!lnewspeer01.lnd.ops.eu.uu.net!emea.uu.net!news2.euro.net!news.mailgate.org!nntp.infostrada.it!news-out.tin.it!news-in.tin.it!news1.tin.it.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,8c940f086da16bbb,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2003-05-05 09:17:12 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-09!supernews.com!diablo.theplanet.net!newsfeed.icl.net!newsfeed.fjserv.net!lnewspeer01.lnd.ops.eu.uu.net!emea.uu.net!news2.euro.net!news.mailgate.org!nntp.infostrada.it!news-out.tin.it!news-in.tin.it!news1.tin.it.POSTED!not-for-mail
From: "luckydor" <orfwim@tin.it>
Newsgroups: free.it.visual-basic
Subject: Conoscere dove punta un collegamento.
Lines: 33
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Message-ID: <a8wta.45154$3M4.1232287@news1.tin.it>
Date: Mon, 05 May 2003 16:17:10 GMT
NNTP-Posting-Host: 213.45.114.186
X-Complaints-To: newsmaster@tin.it
X-Trace: news1.tin.it 1052151430 213.45.114.186 (Mon, 05 May 2003 18:17:10 MET DST)
NNTP-Posting-Date: Mon, 05 May 2003 18:17:10 MET DST
Organization: TIN