Se connecter / S'enregistrer
Votre question

Un logicielle gratuit pour graver...

Tags :
  • Logiciels
Dernière réponse : dans Logiciels
14 Novembre 2004 11:28:54

Bonjour,

Je suis a la recherche d'un bon logiciel pr graver (des photo et des music) sur CD...je ne trouve ke des version devaluation et je voulais savoir si kkn connais un logiciel bien et entierement gratuit...

Merci

Autres pages sur : logicielle gratuit graver

14 Novembre 2004 11:33:20

bonjour
moi perso j'utilisais néro 6
suite à un formatage j'utilise celui de xp qui est on ne peut plus simple d'utilisation
sachant que la pluparts des options des logiciel de gravure ne te serve à rien
essayes tu verra bien
ah si je vois bien un problème tu ne peux pas choisir ta vitesse de gravure
Contenus similaires
14 Novembre 2004 11:37:23

Regarde sur Gravure-News je pense que tu trouvera ton bonheur si tu cherches il y a des gratuits et des libres
14 Novembre 2004 11:44:46

Merci a vous 3 les gars...je v voir tout ca!
14 Novembre 2004 11:47:20

De rien c'est gratuit ! lol
14 Novembre 2004 11:48:43

La j'ai telecharger CD Burner XP Pro, il a l'air simple...

Et sinon j'ai plein de photos de vacance prise avec appareil numerik, et je voudrai en fait les mettre sur un CD (DVD?) pr les regarder sur ma télé avec le leceteur DVD....qqun a deja fait ca ici?
14 Novembre 2004 12:02:31

Il faut que tu créé un VCD (compatible avec la plupart des lecteur DVD) ou un CD photo (Il faut que ton lecteur DVD lise les images JPEG .
14 Novembre 2004 12:08:05

avec nero tu fait ajouter fichier tu peut mettre une centaine de photo puis tu grave sur un cdr et voila le tour est joué,aprés tu regarde tes photo sur le lecteur dvd
14 Novembre 2004 12:25:05

Ca yé je telecharge Nero, je grave mon CD et je le désinstalle ds 2 semaines puiskil est valable ke jusko 30 novembre...merci a vous...
14 Novembre 2004 12:31:03

est ce ke kkn a une technik pr renommer rapidement une centaine de fichier (photos) car yen a plein i sapel pareil, kan je les sort de lapareil elle sapel MVC-1, MVC-2...et si apres je rajoute dotre photo plu tard elle on le mm nom ke les precedentes...je sais pas si vous comprenez mon pb mai bon :) 
14 Novembre 2004 12:35:32

K3b.
14 Novembre 2004 12:36:37

Thierry Beccaro : RESPECT mo-mo-motus

:jesors:
14 Novembre 2004 12:54:37

Aufait jai créer un VCD mais Néro ne veut pas mettre plus de 99 photos...savez pr koi???
14 Novembre 2004 14:39:59

pourquoi vcd?créer un disque de doonée cest tout et aprés tu ajouter tes photos
21 Novembre 2004 13:27:13

ouais en fait c mieu, la seul difference entre un vcd et un cd de donnée c ke kan on insere le vcd ds le lecteur DVD c ke la presentation est plus jolie...
12 Avril 2006 22:14:05

Pour renommer les fichiers image, je te propose deux sripts vbs. Comme je ne sais pas quel est ton niveau, je te les passe comme ça et tu les copie/colle dans notepad et tu enregistres en nom_du_script.vbs, après, il n'y a plus qu'à cliquer !

1) il rajoute la date au début du nom de fichier (si ton APN l'a mise en EXIF)

'renomme les fichiers jpg d'un dossier en proposant de mettre la date cliche (EXIF) en début de nom

Set fs = CreateObject("Scripting.FileSystemObject")
Set oShell= createObject("shell.application")

'choix du dossier où sont les fichiers
Set dossier = fs.GetFolder(".")
userpath = BrowseForFolder("Dossier où sont les fichiers:" & vbCrLf & "(Annuler=""" & dossier.Path & """)")
If userpath = "" Then
Set dossier = fs.GetFolder(".")
Else
Set dossier = fs.GetFolder(userpath)
End If

Set Folder = oShell.namespace(dossier.Path)
Set listfichiers = dossier.files

'affichage de toutes les dates de cliché différentes trouvées
lnglistedates = 0
nbjpg = 0
For Each fichier in listfichiers
If Lcase(fs.GetExtensionName(dossier.Path & "\" & fichier.Name)) = "jpg" Then
nbjpg = nbjpg + 1
For Each occurence in Folder.items
If Folder.getDetailsOf(occurence,0) = fs.GetBaseName(dossier.Path & "\" & fichier.Name) Or _
Folder.getDetailsOf(occurence,0) = fichier.Name Then 'noms du fichier
newdate = Folder.getDetailsOf(occurence,25)
If newdate <> "" And InStr(listedates,left(newdate,10)) = 0 Then
listedates = listedates & newdate & vbCrLf
lnglistedates = lnglistedates + 1
End If
End If
Next
End If
Next

'affichage des dates differentes ou choix de sortie si pas de date ou sortie si pas de .jpg
If lnglistedates > 0 Then
jmenfous = MsgBox(listedates,vbOkOnly,"Type(s) de date(s) observé(s)")
Else
If nbjpg <> 0 Then
If MsgBox("Aucune date trouvée dans vos fichiers .jpg" & vbCrLf & "Continuer?",vbYesNo,"Info") = VbNo Then
Wscript.quit
End If
Else
MsgBox "Aucun fichier .jpg trouvé dans ce dossier"&"Le programme va s'arrêter"
Wscript.quit
End If
End If

'saisie du type de date observé
Dim annee(2),mois(2),jour(2)
typedate = ""
While len(typedate) < 8
typedate = InputBox("Type de date observée." & vbcrlf & "Par exemple, si vous voyez 16/01/2005 16:18" & vbcrlf & "notez jj-mm-aaaa","type de date","jj-mm-aaaa")
annee(1) = InStr(typedate,"a")
mois(1) = InStr(typedate,"m")
jour(1) = InStr(typedate,"j")
If annee(1) * mois(1) * jour(1) = 0 then typedate = ""
Wend

'calcul des longueurs et positions de année, mois, jour
cpt = annee(1)
while InStr(cpt,typedate,"a") <> 0
cpt = cpt + 1
Wend
annee(2) = cpt - annee(1)
cpt = mois(1)
while InStr(cpt,typedate,"m") <> 0
cpt = cpt + 1
Wend
mois(2) = cpt - mois(1)
cpt = jour(1)
while InStr(cpt,typedate,"j") <> 0
cpt = cpt + 1
Wend
jour(2) = cpt - jour(1)

'automatique ou manuel
modeauto = MsgBox("Voulez-vous renommer automatiquement tous les fichiers .jpg du dossier ?"&vbCrLf&"Non pour confirmer à chaque fichier",vbYesNo,"mode automatique")

'visite de chaque fichier .jpg et proposition de son renommage
For Each fichier in listfichiers
If Lcase(fs.GetExtensionName(dossier.Path & "\" & fichier.Name)) = "jpg" Then
For Each occurence in Folder.items
If Folder.getDetailsOf(occurence,0) = fs.GetBaseName(dossier.Path & "\" & fichier.Name) Or _
Folder.getDetailsOf(occurence,0) = fichier.Name Then 'noms du fichier
oldname = fichier.Name
datecliche = Folder.getDetailsOf(occurence,25) 'date de prise de vue
newname = modifdate(datecliche) & oldname
If modeauto = vbNo Then
newnameut = InputBox("Le fichier :"&oldname&vbcrlf&"Date de cliché :"&datecliche&vbcrlf&"sera renommé en :","Nouveau nom du fichier",newname)
Else
newnameut = newname
End If
If newnameut <> "" And newnameut <> oldname Then
fs.MoveFile dossier.Path & "\" & oldname , dossier.Path & "\" & newnameut
End If
Exit For
End If
Next
End If
Next

'fonction de modification de la date cliché lue en aaaa-mm-jj ou aa-mm-jj (ou autre chose;-)
Function modifdate(olddate)
If olddate <> "" Then
modifdate = Mid(olddate,annee(1),annee(2)) & "-" & Mid(olddate,mois(1),mois(2)) & "-" & Mid(olddate,jour(1),jour(2)) & " "
Else
modifdate = ""
End If
End Function

'fonction de selection du dossier où cherhcer les photos .jpg
Function BrowseForFolder(strPrompt)
'Uses the "Shell.Application" (only present in Win98 and newer)
'to bring up a file/folder selection window. Falls back to an
'ugly input box under Win95.
'Shell32.ShellSpecialFolderConstants
Const ssfPERSONAL = 5 'My Documents
Const ssfDRIVES = 17 'My Computer
Const SFVVO_SHOWALLOBJECTS = 1
Const SFVVO_SHOWEXTENSIONS = 2
' Dim sh, fol, fs, lngView, strPath
Set sh = CreateObject("Shell.Application")
If Instr(TypeName(sh), "Shell") = 0 Then 'case win95
BrowseForFolder = InputBox(strPrompt, "Select Folder", CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName))
Exit Function
End If
Set fs = CreateObject("Scripting.FileSystemObject")
lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS
strPath = ""
Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES)
Err.Clear
On Error Resume Next
strPath = fol.ParentFolder.ParseName(fol.Title).Path
'An error occurs if the user selects a drive instead of a folder
If Err.Number <> 0 Then
BrowseForFolder = Left(Right(fol.Title, 3), 2) & "\"
Else
BrowseForFolder = strPath
End If
End Function


Et voilà le deuxième qui permet de rajouter une chaine en début de nom de fichier

'renomme les fichiers jpg d'un dossier en proposant d'ajouter un texte en debut de nom

Set fs = CreateObject("Scripting.FileSystemObject")

'dossier local
Set dossier = fs.GetFolder(".")

Set listfichiers = dossier.files

'saisie du texte à rajouter
rajout = ""
While len(rajout) < 1
rajout = InputBox("Texte à rajouter ?","Texte à rajouter","")
Wend

'automatique ou manuel
modeauto = MsgBox("Voulez-vous renommer automatiquement tous les fichiers .jpg du dossier ?"&vbCrLf&"Non pour confirmer à chaque fichier",vbYesNo,"mode automatique")

'visite de chaque fichier .jpg et proposition de son renommage
For Each fichier in listfichiers
If Lcase(fs.GetExtensionName(dossier.Path & "\" & fichier.Name)) = "jpg" Then
oldname = fichier.Name
newname = rajout & oldname
If modeauto = vbNo Then
newnameut = InputBox("Le fichier :"&oldname&vbcrlf&"sera renommé en :","Nouveau nom du fichier",newname)
Else
newnameut = newname
End If
If newnameut <> "" And newnameut <> oldname Then
fs.MoveFile dossier.Path & "\" & oldname , dossier.Path & "\" & newnameut
End If
End If
Next


Et voilà, tu peux en faire ce que tu veux

Salut
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS