Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Markierte Datein ermitteln
Autor: Pone
Datum: 07.12.07 11:52
Hallo ich habe nun folgenden Code ausprobiert aber der geht nicht, er meldet immer kein Fenster geöffnet Dim oIE As Object Dim SH As Object Dim FV As Object Dim FI As Object Dim flagIE As Boolean Dim sPath As String Dim i As Long Set SH = CreateObject("Shell.Application") For i = 0 To SH.Windows.Count - 1 'Alle offenen Explorer- und InternetExplorer-Fenster scannen Set oIE = SH.Windows(CLng(i)) If TypeName(oIE.Document) = "IShellFolderViewDual2" Then 'Window ist Explorer, kein InternetExplorer! If oIE.hwnd = GetActiveWindow Then 'Aktives Explorer-Fenster! sPath = URLToPath(oIE.LocationURL) 'File-URL in Windows-Pfad umwandeln; s.u. flagIE = True 'Explorer-Fenster gefunden If Left(sPath, 2) = "::" Then MsgBox "Systemordner im Explorer geöffnet!?" End If Exit For End If MsgBox oIE.LocationURL & " Handle: " & oIE.hwnd & " Aktiv: " & GetActiveWindow End If Next i If flagIE Then i = 0 Set FV = oIE.Document '=Datei-Browser (ShellFolderView) For Each FI In FV.SelectedItems 'Markierte Elemente darin Dateiliste = Dateiliste & sPath & "\" & FI.Name & vbCrLf 'FI=FolderItem i = i + 1 'Dateizähler erhöhen Next FI If i = 0 Then MsgBox "Keine Elemente im Explorer markiert." Else MsgBox i & " Element(e) im Explorer markiert: " & vbCrLf & Dateiliste End If Else MsgBox "Kein Explorer-Fenster offen!" End If Set FI = Nothing Set FV = Nothing Set oIE = Nothing Set SH = Nothing kann mir jemand helfen

Markierte Datein ermitteln	1.088	Pone	07.12.07 11:52
Re: Markierte Datein ermitteln	639	mst547	07.12.07 21:52
Re: Markierte Datein ermitteln	634	Pone	10.12.07 09:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen