29 mars 2009
Fichiers .mod
Certains appareils de capture vidéo génèrent des fichiers au format .mod. Ces fichiers sont en fait des fichiers mpeg, mais dont l'extension est "personnalisée" par le constructeur de l'appareil pour faire croire à un format propriétaire.
Lors du transfert de ce type de fichier vers son PC, l'exercice consiste à simplement modifier l'extension .mod en .mpg
Plutôt que de faire cette modification à la main pour l'ensemble des fichiers à traiter, rien de tel que quelques lignes de VBS pour automatiser ces opérations. (Attention ceci n'est pas du VBA, mais du VBS ;)).
Option Explicit
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Dim fso, Chemin, Fichier, FichierItem
Dim NomF, NouveauNomF
Chemin = SelectionDossier("Sélectionner le dossier contenant les fichiers à convertir ","" )
if not Chemin = "ANNULATION" then
on error resume next
beep
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Fichier In fso.GetFolder(Chemin).Files
Set FichierItem = fso.GetFile(Fichier)
NomF = Fichier.name
NouveaunomF = Replace(NomF, ".mod", ".mpg")
fso.MoveFile Chemin & NomF , Chemin & NouveauNomF
next
end if
Function SelectionDossier (message,directory)
Dim objShell, objFolder, objFolderItem
Set objShell = CreateObject("Shell.Application" )
Set objFolder = objShell.BrowseForFolder (WINDOW_HANDLE, message , NO_OPTIONS, directory)
On Error Resume Next
Set objFolderItem = objFolder.Self
If Err <> 0 Then
SelectionDossier = "ANNULATION"
Else
SelectionDossier = objFolderItem.Path & "\"
end if
On Error GoTo 0
set objShell = nothing
set objFolder = nothing
set objFolderItem = nothing
End Function
Télécharger le fichier : ConversionMPG.zip
:) tatiak
28 mars 2009
Danses Noires / Blanche Amérique
CND, 1, rue Victor HUGO 93500 Pantin
Big Brother
Coucou!