Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business



|||-  

aide pour un script svp

 

LOISIRS : bileg
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

aide pour un script svp

Prévenir les modérateurs en cas d'abus 
simcey
simcey
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 26/10/2011 à 12:08:13  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,

 je souhaiterai creer un dossier pour y mettre un fichier en .avi et .mkv dedans en gardant le nom du fichier video.

 j'ai donc trouvé sur le net un script qui correspond à mon besoin du moment mais malheureusement je n'arrive pas à le faire fonctionner.
 Je l'ai copié dans le bloc note en .vbs. Mais rien ne se passe,et vu que je suis carrement novice en script et programmation,je voudrais des avis et conseils de personne plus specialisées que moi.
 Merci de votre aide.

 Voici le script en question:

 Dim objFSO, objDossier, objFichier, objResultat

Dim Repertoire

On Error Resume Next

repertoire = inputbox("Repertoire ?" )

Set objFSO = CreateObject("Scripting.FileSy​stemObject" )

Set objDossier = objFSO.GetFolder(Repertoire)

'Si il y a des fichiers dans le repertoire

If (objDossier.Files.Count > 0) Then

'pour chaque fichier dans le repertoire

For Each objFichier In objDossier.Files

'Si le fichier est un avi alors

If (InStr(1, objFichier.Name, ".avi", 1) > 0) Then

'Suppression de l'extension avipour le nom du repertoire

film = objFichier.Name

nomdossier = Replace(film, ".avi", "" )

'Creation du repertoire du film

objFSO.CreateFolder (Repertoire & "\" & nomdossier)

'Déplacement du film dans le nouveau repertoire

destination = Repertoire & "\" & nomdossier

Set deplacement = objFSO.GetFile(repertoire & "\" & film)   'emplacment origine

deplacement.move(destination & "\" & film) 'emplacement destination

End If

Next

End If

simcey
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 26/10/2011 à 12:32:48  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
j'ai oublier de preciser que je suis sous seven familiale premium 64 bits si ca peux vous aider  :)

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
[Aide] Configuration manette xbox360 Besoin d'aide sur un overflow
aide programmation java integrer un fichier d'aide sous eclips
Aide pour protéger des pages par un mot de passe jeune prof besoin d'aide
script ftp connexion impossible besoin d'aide en physique (niveau terminale s)
Revolution francaise : Besoin d'aide Topic special aide scolaire
Plus de sujets relatifs à : aide pour un script svp

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
fichier dll commune shell de windows 0
connexion jsp mysql 0
Présentation de moteur de recherche google 0
[Urgent] Je cherche un Programmeur Vbulltin 4
Connexion serveur MYSQL(Tomcat)-NETBEANS 0