Se connecter
Inscription
Mot de passe perdu
Poster une réponse à un sujet: Lister le contenu d'un CD/DVD
Attention, ce sujet est un sujet ancien (6258 jours sans réponse)
Bah d'ici quelques années, quand j'aurai le temps 
Ouais mais il demandait pas un truc pour les films. Et même si c'était le cas une des lacunes actuelles du soft c'est justement ce qu'il demande : pouvoir faire une liste à partir des fichiers qui sont sur un CD/DVD
Et tu remédies quand à ces lacunes ?
Il y a Ant Movie Catalog qui est très bien et dont le créateur est membre d'informaticien.
Je pense que lui pourrait certainement t'aider.
Je pense que lui pourrait certainement t'aider.
Ouais mais il demandait pas un truc pour les films. Et même si c'était le cas une des lacunes actuelles du soft c'est justement ce qu'il demande : pouvoir faire une liste à partir des fichiers qui sont sur un CD/DVD
Déjà, merci pour ta réponse 
En fait c'est des fichiers assez imposants donc pas 36000 fichiers par support
Donc dans mon cas, le type de support ne m'interesse pas.
Si possible il faudrait aussi le chemin complet.
Pour ta proposition du nom de CD pour le cataloguer, c'est vraiment pas mal (parce que pour le moment s'est entassé dans un spindle sans nom ^^ )
Donc pour résumer : Nom du CD, Chemin, nom du fichier. (Pour le MediaLabel, vu que ca a été gravé à la va vite je ne sais meme pas si je l'ai modifié à chaque fois ^^)
Bon j'réfléchis quand même rapidement si j'vois quelque chose qui serait utile.
Merci beaucoup
En fait c'est des fichiers assez imposants donc pas 36000 fichiers par support
Donc dans mon cas, le type de support ne m'interesse pas.
Si possible il faudrait aussi le chemin complet.
Pour ta proposition du nom de CD pour le cataloguer, c'est vraiment pas mal (parce que pour le moment s'est entassé dans un spindle sans nom ^^ )
Donc pour résumer : Nom du CD, Chemin, nom du fichier. (Pour le MediaLabel, vu que ca a été gravé à la va vite je ne sais meme pas si je l'ai modifié à chaque fois ^^)
Bon j'réfléchis quand même rapidement si j'vois quelque chose qui serait utile.
Merci beaucoup
Pas de problème pour la liste des fichiers, mais ca risque de faire des listes kilométriques.
Enfin, c'est toi qui sait
Donc, pour résumé, le même principe, mais qui irait dans les sous-répertoires et qui donnerait aussi la liste des fichiers.
Au final, tu veux quoi comme info dans la table?
Si tu veux, on peut aussi faire un truc un tout petit peu plus interactif qui demande un nom de CD, comme ca, au fur et à mesure que tu catalogues, tu écris un nom sur le CD (CD01, CD02, etc...)
Donc, pour résumer... Quoi?
Le type de média, c'est vraiment utile, dans ton cas?
Le nom du média à entrer ou à lire dans le MediaLabel, si il y en a un
le nom du répertoire ou le chemin complet (folder\subfolder\subsubfolder)?
le nom du fichier?
sa taille?
On peut presque tout retrouver, si tu veux qque chose en particulier, c'est le moment.
On peut aussi limiter le cataloguage à une liste d'extension, ca, c'est à toi de voir.
Réfléchi à tout ca et dis moi quoi. Je ferai ca lundi.
Enfin, c'est toi qui sait
Donc, pour résumé, le même principe, mais qui irait dans les sous-répertoires et qui donnerait aussi la liste des fichiers.
Au final, tu veux quoi comme info dans la table?
Si tu veux, on peut aussi faire un truc un tout petit peu plus interactif qui demande un nom de CD, comme ca, au fur et à mesure que tu catalogues, tu écris un nom sur le CD (CD01, CD02, etc...)
Donc, pour résumer... Quoi?
Le type de média, c'est vraiment utile, dans ton cas?
Le nom du média à entrer ou à lire dans le MediaLabel, si il y en a un
le nom du répertoire ou le chemin complet (folder\subfolder\subsubfolder)?
le nom du fichier?
sa taille?
On peut presque tout retrouver, si tu veux qque chose en particulier, c'est le moment.
On peut aussi limiter le cataloguage à une liste d'extension, ca, c'est à toi de voir.
Réfléchi à tout ca et dis moi quoi. Je ferai ca lundi.
Bon comme demandé dans la shoutbox, j'expose mon cas
En fait je cherche aussi une application qui listerait mes CD/DVD...
Mais dans mon cas, c'est un gros nombre de support "bordel" gravé à la va vite lors de problèmes (avant des formatages d'urgences, lors de périodes où j'avais des problemes de capacités sur les HDD etc...) que je voulais triés après mais qui se sont finalement entassés.
Le but serait de sortir le listing des fichiers dans un fichier txt (ou xls pourquoi pas, mais bon avec le txt ca serait déjà nickel)
En bref c'est la même appli mais qui listerait les fichiers aussi
En fait je cherche aussi une application qui listerait mes CD/DVD...
Mais dans mon cas, c'est un gros nombre de support "bordel" gravé à la va vite lors de problèmes (avant des formatages d'urgences, lors de périodes où j'avais des problemes de capacités sur les HDD etc...) que je voulais triés après mais qui se sont finalement entassés.
Le but serait de sortir le listing des fichiers dans un fichier txt (ou xls pourquoi pas, mais bon avec le txt ca serait déjà nickel)
En bref c'est la même appli mais qui listerait les fichiers aussi
Merci J-C! 
L'OS c'est XP
blietaer > voui... mais bon...
L'OS c'est XP
blietaer > voui... mais bon...
Voilà... Je te conseille de faire un "Edit" sur mon message pour reprendre le contenu, sinon, tu as les numéros des lignes ...
J'ai tout commenté, je vais continuer mes recherches sur la manière de déterminer le type de média.
Si je trouve quelque chose de concluant, je le poste
PS : C'est quoi l'OS des machines?
- ' Options :
- 'Lettre du lecteur
- DriveLetter = "D"
- 'Chemin du fichier texte
- TargetFile = "c:\catalogue.txt"
- 'Taille limite CD <-> DVD
- MaxCDSize = 1000000000
- 'On crée les objets dont on va avoir besoin
- 'Le File System Object nous permet d'accéder aux répertoires, fichiers, etc.
- Set FSO = CreateObject("Scripting.FileSystemObject")
- ForReading = 1 : ForWriting = 2 : ForAppending = 8 : CreateIfNecessary = true : DontCreateIfNecessary = false
- 'On ouvre le fichier texte
- Set TargetFileObject = FSO.OpenTextFile(TargetFile,ForAppending, CreateIfNecessary)
- ' On récupère une fois pour toutes le label du média
- MediaLabel = FMediaLabel(DriveLetter)
- ' On récupère une fois pour toutes la taille du média
- MediaSize = FMediaSize(DriveLetter)
- If MediaSize > MaxCdSize then
- MediaType = "DVD"
- else
- MediaType = "CD"
- end if
- i=0
- 'Lancement de la procédure
- catalog FSO.GetFolder(DriveLetter & ":\")
- ' On ferme le Fichier Texte
- TargetFileObject.Close()
- 'On donne le résulta
- MsgBox "Catalogage Terminé. " & i & "répertoire(s) ajoutés"
- 'On Ejecte Le CD
- opencd
- 'Procédures
- '--------------
- Sub catalog(Folder)
- for each subfolder in Folder.subfolders
- i=i+1
- TargetFileObject.WriteLine(MediaLabel & "|" & MediaType & "|" & SubFolder.Name)
- 'Décommenter la ligne suivante pour faire une recherche récursive dans les sous-répertoires
- 'catalog FSO.GetFolder(subfolder.path)
- next
- End Sub
- Function FMediaLabel(DriveLet)
- Set colDrives = FSO.Drives
- FMediaLabel = "No Label Found"
- For Each objDrive in colDrives
- if objDrive.DriveLetter = DriveLet then
- FMediaLabel = objDrive.VolumeName
- end if
- Next
- End Function
- Function FMediaSize(DriveLet)
- Set colDrives = FSO.Drives
- For Each objDrive in colDrives
- if objDrive.DriveLetter = DriveLet then
- FMediaSize = objDrive.TotalSize
- end if
- Next
- End Function
- Sub opencd
- Set oWMP = CreateObject("WMPlayer.OCX.7")
- Set colCDROMs = oWMP.cdromCollection
- For i = 0 To colCDROMs.count-1
- colCDROMs.item(i).eject
- Next
- oWMP.close
- End Sub
J'ai tout commenté, je vais continuer mes recherches sur la manière de déterminer le type de média.
Si je trouve quelque chose de concluant, je le poste
PS : C'est quoi l'OS des machines?
Voui, mais ce ne sera pas excat à chaque coups... Pas grave.
Mais si tu veux quand même bien laisser le code qui marche pas bien en commentaire, ça me ferait plaisir
Mais si tu veux quand même bien laisser le code qui marche pas bien en commentaire, ça me ferait plaisir
