Réponse - Informaticien.be

Poster une réponse à un sujet: Lister le contenu d'un CD/DVD

Attention, ce sujet est un sujet ancien (6269 jours sans réponse)

forum_emoticons.html

Courriel [email=nobody@nobody.org]Nom[/email]

Lien [url=http://www.website.com]Texte[/url]

Image [img]http://www.website.com/image.jpg[/img]

Aligné à gauche [align=left]Texte[/align]

Aligné à droite [align=right]Texte[/align]

Toute la largeur [align=justify]Texte[/text]

Mise en forme [highlight=pascal]Texte[/highlight]

Liste [list=square][item]BlaBla[/item][/list]

Liste Numérotée [list=decimal][item]BlaBla[/item][/list]

Spoiler [spoiler]James est le meurtrier![/spoiler]

Tout en majuscules [uppercase]Texte[/uppercase]

Tout en minuscules [lowercase]Texte[/lowercase]

[quote=Jean-Christophe,65361]Voilà... Je te conseille de faire un "Edit" sur mon message pour reprendre le contenu, sinon, tu as les numéros des lignes ...
[vb]' 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
[/vb]

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?[/quote]

antp

Bah d'ici quelques années, quand j'aurai le temps :oh:

Derdesder

Citation de: antp

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 :grin:

Et tu remédies quand à ces lacunes ? :ddr555:

antp

Citation de: Derdesder

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. :clindoeil:

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 :grin:

Georgio

Déjà, merci pour ta réponse :wink:

En fait c'est des fichiers assez imposants donc pas 36000 fichiers par support :wink:

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 :wink:

Jean-Christophe

Pas de problème pour la liste des fichiers, mais ca risque de faire des listes kilométriques.
Enfin, c'est toi qui sait :grin:

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. :smile:

Georgio

Bon comme demandé dans la shoutbox, j'expose mon cas :wink:

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 :wink:

didix

Merci J-C! :kadreg:

L'OS c'est XP

blietaer > voui... mais bon... :wink:

Jean-Christophe

Voilà... Je te conseille de faire un "Edit" sur mon message pour reprendre le contenu, sinon, tu as les numéros des lignes ...

Code:

' 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 :smile:

PS : C'est quoi l'OS des machines?

blietaer

VBS BASH c'est une piste pour le langage, oui...

didix

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 :wink: