l’ordinateur
  1. l’ordinateur
  3. VBS: sélectionnez l'élément dans la dernière fenêtre active de Windows Explorer
Intereting Posts
Telnet ne s'exécute pas à partir de l'invite cmd dans Windows 7 Comment puis-je synchroniser Android avec Zune? Annuler une commande "rm -rf ~"? La synergie est extrêmement difficile Impossible de monter le disque de partition Windows 8 sur Ubuntu 12.10 Vous ne recevez pas de sonner sur un lien gigabit? Comment puis-je installer ffmpeg sur Windows 7 128 Mo contre 128 Go Windows 10 continue à afficher 100% de l'utilisation du processeur, peu importe Comment puis-je remonter un lecteur USB éjecté (pas simplement démonté) sur Mac? Synchronisez mes fichiers sur plusieurs ordinateurs Utilisation des touches d'accès rapide de VLC via la ligne de commande Annulation des dernières mises à jour Windows installées via la ligne de commande Clonezilla disk to disk clone sur un double boot ubuntu karmic & XP setup – impossible d'ouvrir '/boot/grub/device.map' Comment puis-je "activer la fonctionnalité sans fil" dans Windows 7?

VBS: sélectionnez l'élément dans la dernière fenêtre active de Windows Explorer

J'utilise le code suivant pour sélectionner un fichier dans une fenêtre de l'Explorateur Windows: 

Set objShellAPP = CreateObject("Shell.Application") objShellAPP.Open(WScript.Arguments(0)) WScript.Sleep(300) On Error Resume Next ' For new unsaved files. With objShellAPP.Windows(objShellAPP.Windows.Count - 1).document .SelectItem .Folder.Items.Item(WScript.Arguments(1)), 29 End With Set objShellAPP = Nothing

objShellAPP.Open() ouvre le dossier dans la dernière fenêtre active;

objShellAPP.Windows.Count - 1 n'est pas nécessairement cette fenêtre.

Comment puis-je obtenir la dernière fenêtre active pour la ligne de With objShellAPP.Windows(---).document

Je vous remercie.

Voir:

Ouvrir et sélectionner un fichier dans une fenêtre Explorer existante

VBS: sélectionnez un fichier dans un dossier

    Dans le code suivant, la première fenêtre de l'Explorateur Windows est activée puis un dossier est ouvert (j'utilise QTTabbar ). 

     Set objShellApp = CreateObject("Shell.Application") Dim winFolder For Each wFolder In objShellApp.Windows On Error Resume Next isFolder = wFolder.document.folder ' An IE window does not support ".document.folder". We get the first Windows Explorer window. If Err = 0 Then wFolder.Visible = True Set winFolder = wFolder Exit For End If Next objShellApp.Open(WScript.Arguments(0)) WScript.Sleep(300) If NOT WScript.Arguments(1) = "" Then If winFolder = Empty Then Set winFolder = objShellApp.Windows(objShellApp.Windows.Count - 1) ' A Windows Explorer window opened with objShellApp.Open(WScript.Arguments(0)) is the last one in the index (Count - 1). End If On Error Resume Next ' For new unsaved files. With winFolder.document .SelectItem .Folder.Items.Item(WScript.Arguments(1)), 29 End With End If Set winFolder = Nothing Set objShellApp = Nothing

    En ce qui concerne une meilleure façon de distinguer entre Windows-Explorer et Internet-Explorer:

    VBS: Distinguis entre Windows-Explorer et Internet-Explorer