Anomalie du vbsRésolu

Question

Bonjours,
Je débute en programmation et j'ai eu quelques problèmes avec certains fichiers éditer en script vbs qui fonctionnent très bien, quand ils sont sur le bureau et d'autres ne marchent pas du tout. Pourquoi ?
Cordialement

jordane45 · Answer

Bonjour,

Heuuuu..... disons que...... sans savoir ce que contiennent les scripts en question..... impossible pour nous de te répondre....

reverde · Answer

VOICI UN DES SCRIPT VBS QUI NE S'EXÉCUTE PAS.

'Renommer un dossier

Sub RenameFolder() 
Dim fso ' As Scripting.FileSystemObject 
Dim fd ' As Scripting.Folder 
Dim s ' As String 
Dim sFolderName ' As String 
Dim sNewName ' As String 
Dim sTemp ' As String

'Initialisation des noms de dossiers 
sFolderName = "d:\MonDossier" 
sNewName = "toto"

Set fso = CreateObject("Scripting.FileSystemObject") 
' Vérifier que le dossier source existe bien. 
If fso.FolderExists(sFolderName) Then 
' Récupérer l'instance du dossier. 
Set fd = fso.GetFolder(sFolderName) 
sTemp = fd.Drive & "\" & sNewName 
' Vérifier que le dossier cible n'existe pas déjà. 
If fso.FolderExists(sTemp) Then 
MsgBox "Ce nom de dossier existe déjà!" 
Else 
fd.Name = sNewName 
End If 
Else 
MsgBox "Dossier non trouvé!" 
End If 
End Sub

EDIT : AJOUT DES BALISES DE CODE (jordane)

jordane45 · Answer

Ok maintenant on voit le script...
Mais pourrais tu nous indiquer en quoi il ne fonctionne pas ?
* Et aussi.. dans QUELS cas... il ne fonctionne pas.

reverde · Answer

Je le sauvegarde sur le bureau de Seven et quand on clique dessus rien ne se passe.

reverde · Answer

Bonjour,

Je m'excuse mais du moment que je n'en fait pas une utilisation commerciale et que je n'en tire aucun profit, je me suis servis de ce code source pour apprendre le script.vbs. je ne vois pas où est le mal pour CodeS-Sources. 

http://codes-sources.commentcamarche.net/.

Cordialement.

ucfoutu · Answer

foldername = "d:\MonDossier"
 donc : fd.Drive = "d:"
 et donc : sTemp = fd.Drive & "\" & sNewName ==>==>> = "d:	oto"
et donc ton code vérifié la non-existence de "d:	oto" ==>> et si n'existe pas : renomme "d:\Mondossier" en "d:	oto" ?
C'est cela que tu veux faire ?

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Et par quoi appelles-tu cette sub ???
ce n'est certes pas en te contentant de cliquer sur ton vbs que cette sub sera spontanément appelée.
ton vbs serait par contre exécutable du seul fait d'un click sans ton Sub RenameFolder() et le end sub correspondant.

Il le serait également en écrivant comme toute premlière instruction :
RenameFolder
, ce qui appellerait ta sub

Existe également la possibilité d'utiliser des arguments en Command Line (utile si ton fichier vbs contient plusieurs procédures que tu veux utiliser selon tes besoins).
Pour résumer : ton code ne sera exécuté que si :
- soit la sub RenameFolder est appelée (avec ou non Command Line)
- soit ce code est directement (hors sub) celui de ton fichier. 
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Bon ...
De toutes manières :
le code montré fait tout un tas de détours inutilement alourdissants.
Je n'ai pas VBS (inhibé sur ma machine pour des raisons personnelles de sécurité), mais (de mémoire et donc à main levée et sans tester), VBS a ce qu'il faut.
Voici ce que tu devrais écrire :
RenameFolderSub RenameFolder  Dim sFolderName  Dim sNewName   sFolderName = "d:\MonDossier"   sNewName = "d:	oto"   Set fso = CreateObject("Scripting.FileSystemObject")   If not fso.FolderExists("d:\Monoutil") then    msgbox "le dossier " & sFolderName & " n'existe pas"    exit sub  end if  if fso.FolderExists("d:\abcdef") Then     msgbox "le dossier " & sNewName & " existe deja"    exit sub  end if  fso.MoveFolder sFolderName, sNewNameend sub
Tu sais quoi ? Tu devrais commencer par apprendre en lisant les fonctions disponibles de VBS au lieu de tenter d'apprendre en regardant ce que d'autres (pas forcément toujours adroits) ont écrit ailleurs.

ucfoutu · Answer

A Reverde, à qui je rappelle qu'il est ici sur un FORUM.
Tu as cliqué sur le tag "RESOLU". Bien, mais ce click n'aurait aucun sens sans indiquer (d'autres suivent/suivront cette discussion) comment ton problème a été "résolu" !
Alors ?

Anomalie du vbs

9 réponses

Votre réponse

Discussions similaires