url information über verknüpfungen im ordner

04/05/2009 - 14:53 von WolfR | Report spam
Hallo NG,
ich habe einen Ordner, der Dateien vom Typ Internetverknüpfung enthàlt.
ich möchte a) die Dateinamen feststellen
und b) die Internetverküpfung feststellen.
a) bekomme ich noch mit dem FileSystemObject hin.
Function GetBaseName(strFile As String) As String
Dim objFSO As Object
Dim objFile As Object

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFile)
GetBaseName = objFSO.GetBaseName(objFile)
End Function
Aber wie komme ich an b)?
Gruß Wolfgang
 

Lesen sie die antworten

#1 Carsten Sekulla
05/05/2009 - 07:00 | Warnen spam
"WolfR" schrieb im Newsbeitrag
news:
Hallo NG,
ich habe einen Ordner, der Dateien vom Typ Internetverknüpfung enthàlt.
ich möchte a) die Dateinamen feststellen
und b) die Internetverküpfung feststellen.
a) bekomme ich noch mit dem FileSystemObject hin.
Function GetBaseName(strFile As String) As String
Dim objFSO As Object
Dim objFile As Object

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFile)
GetBaseName = objFSO.GetBaseName(objFile)
End Function
Aber wie komme ich an b)?
Gruß Wolfgang



Hi
von a) bin ich auch nicht überzeugt. Wozu ein externes ActivX-Object, wenn
das auch mit Bordmitteln geht.
zu b) sieht dir mal eine Verknüpfung im Editor an, das sind normale
Textdateien

quick and dirty wàre das so:

Private Sub Start()
DisplayUrl "C:\DOKUME~1\sekulla\Desktop\"
End Sub

Private Sub DisplayUrl(ByVal sBaseDir As String)
Dim sSplit() As String
Dim sFile As String
Dim sURL As String
Dim sContent As String
Dim i As Long
Dim lPo As Long

Const sPattern As String = "URL="

If Right$(sBaseDir, 1) = "\" Then
sBaseDir = Left$(sBaseDir, Len(sBaseDir) - 1)
End If

sFile = Dir$(sBaseDir & "\*.url")
Do While Len(sFile) > 0
Open sBaseDir & "\" & sFile For Input As #1
sContent = Input$(LOF(1), #1)
Close #1
sSplit() = Split(sContent, vbCrLf)
For i = LBound(sSplit()) To UBound(sSplit())
lPo = InStr(sSplit(i), sPattern)
If lPo > 0 Then
sURL = Mid$(sSplit(i), lPo + Len(sPattern))
Debug.Print sURL ' Ausgbabe
Exit For
End If
Next
sFile = Dir$()
Loop

End Sub

Ähnliche fragen