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
Partager