Ceci un code générant une petite boite de dialogue pour la manipulation de fichier...
Cette boite n'est pas une commondialog.
Source / Exemple :
Dim a, entry, S, fso
Set a=WScript.CreateObject("Shell.Application")
Function B(Msg)
On Error Resume Next
Dim f,i,w
Set w=CreateObject("WScript.Shell")
Set f=a.BrowseForFolder(&H0&,Msg,&h1&)
B=f.ParentFolder.ParseName(f.Title).Path
If Err.Number<>0 Then
If f.Title="Desktop" Then B=w.SpecialFolders("Desktop")
i=InStr(f.Title, ":")
If i>0 Then B=Mid(f.Title,i-1,2) & "\"
End If
End Function
S = B("Choisissez un répertoire")
while entry <> "ouvrir" and entry <> "supprimer" and entry <> "aucun"
entry = inputbox("Ouvrir ou supprimer ?", "ouvrir/supprimer/aucun")
wend
if entry = "ouvrir" then
a.open S
elseif entry = "supprimer" then
set fso = createobject("Scripting.FileSystemObject")
fso.Deletefile(S), true
End If
Conclusion :
Voilà !
Bientot j'améliorerais le code et je le commenterais pus tard...
Mais contentez vous de cela en attendant !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.