listing d'un cdrom

Question

Bonjour à tous,

J' aimerai, lorsque j'introduis un cdrom dans mon lecteur, pouvoir lister tous les fichiers qu'il contient et enregistrer cette liste dans un fichier.

J'a pu me débrouiller pour lister les fichiers d'un repertoire de mon disue dur, mais je ne sais pas comment accéder au cdrom.

Ca serait vraiment sympa si quelqu'un pouvait m'aider car dur dur de débuter....

Merci à tous....

Benoît.

cs_JMO · Answer

Bonsoir,

Je débute en VBS et je ne connais pas le VB !!!
Néanmoins, je te suggère de t'inspirer de l'exemple ci-dessous.
Pour le cd-rom, voir commande Drive.
J'ai testé sur ma bécane en mettant d:\......
ça marche

Dim Path
Path = InputBox("Saisir le répertoire souhaité:                            exemple:  c:\Mes Documents","Liste de fichier dans un répertoire") 

MsgBox ShowFolderList(Path),vbmessage,"Vérification de l'archivage des fichiers => répertoire " & Path

Function ShowFolderList(strPath)

Dim fso, Dossiers, fic, fichiers, strListe

Set fso = CreateObject("Scripting.FileSystemObject")

Set Dossiers = fso.GetFolder(strPath)

Set fic = Dossiers.Files

'pour chaque fichiers de mon objet files de mon objet fso...:)

For Each fichiers in fic
'le nom du fichier

strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & "    Date (jjmmaa) : " & fichiers.DateLastModified & "    Taille (octet) : " & fichiers.Size
Next

ShowFolderList = strListe 
End Function

wizard512 · Answer

merci pour la source JMO 

dotwizard512 ;) 

http://shainadam.skyblog.com 
http://hackin9.blogtrafic.com
http://adam5902.skyblog.com

si vous voulez une invite gmail envoyer moi un message a ces adresses mail:

[mailto:mega5120000@yahoo.fr mega5120000@yahoo.fr] 
[mailto:dotwizard512@gmail.com dotwizard512@gmail.com]

et je vous enverer une invite

Listing d'un cdrom

2 réponses

Discussions similaires