ouvrir un dossier depuis un bouton en vbsRésolu

Question

bonjours a tous !
Voila je viens de faire un autorun sur un cd de photos et je voudrais faire ceci :
http://www.developpez.com/vbasic/tutoriel/images/window1.gif

Mais a la place de suppression je voudrais que ca ouvre le cd si la personne clique sur oui et ne rien faire si elle clique sur non.

J'en suis a ca :
//Dim Sup
//Sup = MsgBox("Le CD a été correctement reconnu. Voulez-vous voir le dossier photo ?", vbQuestion + vbYesNo, "Question")
//If (Sup = vbYes) Then
//
//'Ouvrir le dossier "Letre du lecteur ou est le cd":\photo\
//
//End If

Je n'aarive pas a ouvrir le dossier ... Mad
Merci !

http://pmdzsite.free.fr

cs_Willi · Accepted Answer

Pour esquiver le lecteur "a" rajoute les lignes en gras

   If (Sup =  vbYes) Then
      For Each sDrive In oFso.Drives
          If Not sDrive="A:" then 
            If oFso.FolderExists(sDrive & "\photo") Then
               sCheminPhoto  = sDrive & "\photo"
               oShell.Open sCheminPhoto
               Exit For            
            End If
         End If
      Next
   End If

ci cela ne te conviens pas ouvre une boite de dialogue de dossier &#224; la place exemple complet ci-dessous pour ton cas

---------------------------------------------------------------------------------------
   Dim oFso
   Dim sCheminPhoto
   Dim oshell
   Dim oItem
   Dim Flags


   Flags = &H0001 + &H0020


   Set oFso = CreateObject("Scripting.FileSystemObject")
   Set oShell = WScript.CreateObject("Shell.Application")  


   Set oItem = oShell.BrowseForFolder(0, "Recherche du dossier photo", Flags, "")

   If IsValue(oItem) Then 
      If InStr(1,oItem.Title,":") = 0 Then
         sCheminPhoto = oItem.ParentFolder.ParseName(oItem.Title).Path
         oShell.Open sCheminPhoto
      End If
   End If

   Function TestValue(obj)
      Dim sVar
      On Error Resume Next
 
      sVar = " " & obj


      If Err <> 0 Then TestValue False Else TestValue True
   End Function

-----------------------------------------------------------------------------------
Voila...

cs_Willi · Answer

Salut,
pour trouver la lettre du lecteur je ne sais pas trop je posterais un exemple si je trouve
sinon simple pour ouvrir un dossier en vbs
&#224; la place de c:\program files tu mets bien sur ton chemin de photo

------------------------------------------------
dim oSshell

set oShell= WScript.CreateObject("Shell.Application")

oShell.Open "c:\program files"

------------------------------------------------

cs_Willi · Answer

Bon je viens de faire ton petit bout de code

    Dim Sup
    Dim oFso
    Dim sDrive
    Dim sCheminPhoto
    Dim oSshell

    Set oFso= CreateObject("Scripting.FileSystemObject")
    Set oShell= WScript.CreateObject("Shell.Application")

    Sup = MsgBox("Le CD a &#233;t&#233; correctement reconnu. Voulez-vous voir le dossier photo ?", vbQuestion + vbYesNo, "Question")
    
   If (Sup = vbYes) Then
      For Each sDrive In oFso.Drives
         If oFso.FolderExists(sDrive & "\photo") Then
            sCheminPhoto = sDrive & "\photo"
            oShell.Open sCheminPhoto
            Exit For            
         End If
      Next
   End If

Voila bon courage

pmdzsite · Answer

probleme => ou que soit le vbs il cherche le dossier photos dans a:\

pmdzsite · Answer

on peux pas faire editer ?
on peut faire des chemein relatif en vbs ?

cs_Willi · Answer

Oups remplace dans le second exemple
If IsValue(oItem) Then 
par
If TestValue(oItem) Then

pmdzsite · Answer

merci beaucoup !

cs_Willi · Answer

De rien...bonne prog

pmdzsite · Answer

juste une chose : comment puis faire (dans le premier script) pour ouvrir a la racine du cd et non pas dans un dossier du cd ?

cs_Willi · Answer

If (Sup = vbYes) Then
      For Each sDrive In oFso.Drives
         If Not sDrive="A:" then
            If oFso.FolderExists(sDrive & "\photo") Then
               sCheminPhoto = sDrive & ""
               oShell.Open sCheminPhoto
               Exit For            
            End If
         End If
      Next
   End If

voila pas tester mais je pense que c'est cela que tu recherches
++

pmdzsite · Answer

j'ai essayé en mettant :
 If (Sup = vbYes) Then
      For Each sDrive In oFso.Drives
         If Not sDrive="A:" then
            If oFso.FolderExists(sDrive & "") Then
               sCheminPhoto = sDrive & ""
               oShell.Open sCheminPhoto
               Exit For            
            End If
         End If
      Next
   End If

ca va changer qql chose de rajouter "photo" dans :
If oFso.FolderExists(sDrive & "\photo") Then

???

cs_Willi · Answer

"If oFso.FolderExists(sDrive & "\photo") Then"
sert juste à s'assurer que c'est bien le cd que tu désires puisqu'il y a le dossier "photo".
Si tu l'enlèves "photo" alors le test ne sera pas le meme il testera juste si un cd est présent dans le lecteur de ce fait on pourra insérer n'importe quel cd ton programme ne fera pas la différence.

cs_jeanmarc · Answer

Pour connaitre le driver du cd-rom:
  Dim strDriveLetter, IntDriveLetter, Fso
  Const CDROM = 4
  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
' Detection des lecteurs de CD
  strDriveLetter = ""
  For intDriveLetter = Asc("A") To Asc("Z")
    Err.Clear
    If fso.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
      If Err.Number = 0 Then
        strDriveLetter = Chr(intDriveLetter)
        msgbox "le driver du graveur se trouve sur " & strDriveLetter & ":"
        Exit For
      End If
    End If
  Next

pmdzsite · Answer

Willi => donc si le repertoire photo est dans c: et d: il ouvrira forcement c: ?

jeanmarc => ok merci ;) je garde le code !

cs_Willi · Answer

oui j'ai oublié de tester le support merci jeanmarc de cette modification!

pmdzsite · Answer

une derniere chose :
dans ce script :
   If (Sup = vbYes) Then
      For Each sDrive In oFso.Drives
         If Not sDrive="A:" then
            If oFso.FolderExists(sDrive & "\photo") Then
               sCheminPhoto = sDrive & "\photo"
               oShell.Open sCheminPhoto
               Exit For            
            End If
         End If
      Next
   End If

est ce qu'il est possible de verifier si un fichier existe au lieu d'un dossier ? 
=> ici : If oFso.FolderExists(sDrive & "\photo\1.jpg") Then
Je peux faire ca ?

cs_Willi · Answer

Remplace
If oFso.FolderExists(sDrive & "\photo\1.jpg") Then
par
If oFso.FileExists(sDrive & "\photo\1.jpg") Then

pmdzsite · Answer

merrci !!! 

PS: si je connaissais mieux l'anglais ... 

Merci beaucoup c'est completement reglé !

Ouvrir un dossier depuis un bouton en vbs

18 réponses

Discussions similaires