IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Browse For Folder Dialog Box : selection drive fontionne pas ?


Sujet :

VBScript

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    425
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2006
    Messages : 425
    Par défaut Browse For Folder Dialog Box : selection drive fontionne pas ?
    voici mon code, que j'utilise pour dezipper un fichier.

    Hors avec le dialog box, j'aimerai selection un disque au lieu d'un folder.
    Mais dans ce cas la fonction .... ne fonctionne pas ?

    destination = objF.ParentFolder.ParseName(objF.Title).Path


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Function IsValue(obj)
        ' Check whether the value has been returned.
        Dim tmp
        On Error Resume Next
        tmp = " " & obj
        If Err <> 0 Then
            IsValue = False
        Else
            IsValue = True
        End If
        On Error GoTo 0
    End Function
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFile = objFSO.GetFile("extract.vbs") 
    FolderName=objFSO.GetParentFolderName(objFile)
    'wscript.echo Foldername
    stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text")
    Dim wsh, objDlg, objF
    ' Get Application object of the Windows shell.
    Set objDlg = WScript.CreateObject("Shell.Application")
    Set objF = objDlg.BrowseForFolder (&H0, _
        "Select the folder to copy the Record Session to", &H4000, 17)
    If IsValue(objF) Then 
       destination = objF.ParentFolder.ParseName(objF.Title).Path
       wscript.echo destination
     Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
     Set oShell = WScript.CreateObject("Wscript.Shell")
     oShell.Run FolderName&"\7za.exe x -y "&stFichierSource&".zip -o"&destination&"\", 0, True
    End If

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    425
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2006
    Messages : 425
    Par défaut
    destination = objF.Self.Path

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Browse for folder problème !
    Par jimmplan dans le forum MFC
    Réponses: 2
    Dernier message: 13/03/2009, 16h51
  2. Pop-up d'une dialog box a partir d'un bouton
    Par bobbyjack dans le forum MFC
    Réponses: 21
    Dernier message: 13/09/2005, 15h32
  3. Insertion dialog box dans feuille SDI
    Par Tom Joad dans le forum MFC
    Réponses: 3
    Dernier message: 12/04/2004, 00h04
  4. comment faire un Dialog Box demi-transparent?
    Par Zorgz dans le forum MFC
    Réponses: 3
    Dernier message: 08/01/2004, 14h02
  5. [Win32]Open/Save Dialog Box
    Par Chance666 dans le forum Windows
    Réponses: 2
    Dernier message: 07/01/2004, 16h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo