Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je
rame un peu...
Je voudrais simplement
- En cas d'existence d'un répertoire (contenant des sous-répertoires et
des fichiers), le renommer en C:\Sauvegarde
- Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:\Sauvegarde"); seul résultat, un
beau message d'erreur..
Ensuite (trouvé sur microsoft) :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery ("Select * from
Win32_Directory where name = 'c:\\Scripts'")
objFolder.Rename("C:\Sauvegarde")
... Pas mieux !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Georges MAUREL
Bonjour, Voici un exemple qui vous permettra de renommer un répertoire et de le recréer
Dim fso, fc, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:scripts") f.Name = "sauvegarde"
Set f = fso.GetFolder("c:") set fc = f.subfolders fc.add("script")
Cordialement Georges
"ThierryP" a écrit dans le message de news:
Bonjour tout le monde !
Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je rame un peu... Je voudrais simplement - En cas d'existence d'un répertoire (contenant des sous-répertoires et des fichiers), le renommer en C:Sauvegarde - Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:Sauvegarde"); seul résultat, un beau message d'erreur.. Ensuite (trouvé sur microsoft) : strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:Scripts'") objFolder.Rename("C:Sauvegarde") ... Pas mieux !
Si quelqu'un peut éclairer ma lanterne...
Merci d'avance
thierryp
Bonjour,
Voici un exemple qui vous permettra de renommer un répertoire et de le
recréer
Dim fso, fc, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:scripts")
f.Name = "sauvegarde"
Set f = fso.GetFolder("c:")
set fc = f.subfolders
fc.add("script")
Cordialement
Georges
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: uMUFaDI2FHA.3720@TK2MSFTNGP14.phx.gbl...
Bonjour tout le monde !
Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je rame
un peu...
Je voudrais simplement
- En cas d'existence d'un répertoire (contenant des sous-répertoires et
des fichiers), le renommer en C:Sauvegarde
- Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:Sauvegarde"); seul résultat, un beau
message d'erreur..
Ensuite (trouvé sur microsoft) :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory
where name = 'c:\Scripts'")
objFolder.Rename("C:Sauvegarde")
... Pas mieux !
Bonjour, Voici un exemple qui vous permettra de renommer un répertoire et de le recréer
Dim fso, fc, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:scripts") f.Name = "sauvegarde"
Set f = fso.GetFolder("c:") set fc = f.subfolders fc.add("script")
Cordialement Georges
"ThierryP" a écrit dans le message de news:
Bonjour tout le monde !
Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je rame un peu... Je voudrais simplement - En cas d'existence d'un répertoire (contenant des sous-répertoires et des fichiers), le renommer en C:Sauvegarde - Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:Sauvegarde"); seul résultat, un beau message d'erreur.. Ensuite (trouvé sur microsoft) : strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:Scripts'") objFolder.Rename("C:Sauvegarde") ... Pas mieux !
Si quelqu'un peut éclairer ma lanterne...
Merci d'avance
thierryp
ThierryP
Simple et de bon goût et en plus ça fonctionne !!
que dire de plus...Merci !
thierryp
Bonjour, Voici un exemple qui vous permettra de renommer un répertoire et de le recréer
Dim fso, fc, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:scripts") f.Name = "sauvegarde"
Set f = fso.GetFolder("c:") set fc = f.subfolders fc.add("script")
Cordialement Georges
"ThierryP" a écrit dans le message de news:
Bonjour tout le monde !
Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je rame un peu... Je voudrais simplement - En cas d'existence d'un répertoire (contenant des sous-répertoires et des fichiers), le renommer en C:Sauvegarde - Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:Sauvegarde"); seul résultat, un beau message d'erreur.. Ensuite (trouvé sur microsoft) : strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:Scripts'") objFolder.Rename("C:Sauvegarde") ... Pas mieux !
Si quelqu'un peut éclairer ma lanterne...
Merci d'avance
thierryp
Simple et de bon goût et en plus ça fonctionne !!
que dire de plus...Merci !
thierryp
Bonjour,
Voici un exemple qui vous permettra de renommer un répertoire et de le
recréer
Dim fso, fc, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:scripts")
f.Name = "sauvegarde"
Set f = fso.GetFolder("c:")
set fc = f.subfolders
fc.add("script")
Cordialement
Georges
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: uMUFaDI2FHA.3720@TK2MSFTNGP14.phx.gbl...
Bonjour tout le monde !
Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je rame
un peu...
Je voudrais simplement
- En cas d'existence d'un répertoire (contenant des sous-répertoires et
des fichiers), le renommer en C:Sauvegarde
- Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:Sauvegarde"); seul résultat, un beau
message d'erreur..
Ensuite (trouvé sur microsoft) :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory
where name = 'c:\Scripts'")
objFolder.Rename("C:Sauvegarde")
... Pas mieux !
Bonjour, Voici un exemple qui vous permettra de renommer un répertoire et de le recréer
Dim fso, fc, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:scripts") f.Name = "sauvegarde"
Set f = fso.GetFolder("c:") set fc = f.subfolders fc.add("script")
Cordialement Georges
"ThierryP" a écrit dans le message de news:
Bonjour tout le monde !
Je me lance depuis peu dans le VBS (je connais assez bien VBA) et je rame un peu... Je voudrais simplement - En cas d'existence d'un répertoire (contenant des sous-répertoires et des fichiers), le renommer en C:Sauvegarde - Recréer le répertoire sous le même nom.
J'ai donc essayé : objFSO.Rename ("C:Sauvegarde"); seul résultat, un beau message d'erreur.. Ensuite (trouvé sur microsoft) : strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:Scripts'") objFolder.Rename("C:Sauvegarde") ... Pas mieux !
Si quelqu'un peut éclairer ma lanterne...
Merci d'avance
thierryp
Do Re Mi chel La Si Do
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1
md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette
avec un langage plus évolué (?), mais surtout plus valorisant auprès des
collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat
du coin...
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
ThierryP
Je suis d'accord, ayant commencé avec DOS il y a 25 ans....Mais justement 25 ans, c'est long et j'ai un peu oublié la syntaxe de martien du batch :-))))),donc je m'en tiens prudemment à des syntaxes plus "parlantes" (encore que !!!)
thierryp
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Je suis d'accord, ayant commencé avec DOS il y a 25 ans....Mais
justement 25 ans, c'est long et j'ai un peu oublié la syntaxe de martien
du batch :-))))),donc je m'en tiens prudemment à des syntaxes plus
"parlantes" (encore que !!!)
thierryp
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1
md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette
avec un langage plus évolué (?), mais surtout plus valorisant auprès des
collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat
du coin...
Je suis d'accord, ayant commencé avec DOS il y a 25 ans....Mais justement 25 ans, c'est long et j'ai un peu oublié la syntaxe de martien du batch :-))))),donc je m'en tiens prudemment à des syntaxes plus "parlantes" (encore que !!!)
thierryp
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Jacques Barathon [MS]
Jaloux va ;-)
Jacques
"Do Re Mi chel La Si Do" wrote in message news:
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Jaloux va ;-)
Jacques
"Do Re Mi chel La Si Do" <enleverlesO.OmcO@OmclaveauO.com> wrote in message
news:uAY4LiJ2FHA.3124@TK2MSFTNGP12.phx.gbl...
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1
md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la
nennette avec un langage plus évolué (?), mais surtout plus valorisant
auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de
secrétariat du coin...
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
jbongran
Do Re Mi chel La Si Do wrote:
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Et cela évite de renommer le rep c:scriptS pour creer le repertoire c:cript ;-)
Do Re Mi chel La Si Do wrote:
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1
md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la
nennette avec un langage plus évolué (?), mais surtout plus
valorisant auprès des collègues, des I.C. Microsoft, et des
stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Et cela évite de renommer le rep c:scriptS pour creer le repertoire
c:cript ;-)
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Et cela évite de renommer le rep c:scriptS pour creer le repertoire c:cript ;-)
jbongran
jbongran wrote:
Do Re Mi chel La Si Do wrote:
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Et cela évite de renommer le rep c:scriptS pour creer le repertoire c:cript ;-) Decidemment d'en faire empêche d'écrire le mot, à moins que ça n'use la
touche 's' du clavier ;-) il fallait lire c:script
jbongran wrote:
Do Re Mi chel La Si Do wrote:
Bonjour !
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1
md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la
nennette avec un langage plus évolué (?), mais surtout plus
valorisant auprès des collègues, des I.C. Microsoft, et des
stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Et cela évite de renommer le rep c:scriptS pour creer le repertoire
c:cript ;-)
Decidemment d'en faire empêche d'écrire le mot, à moins que ça n'use la
touche 's' du clavier ;-)
il fallait lire c:script
Ce serait encore plus simple en Batch. Exemple de script :
ren %1 sauvegarde_%1 md %1
Qui pourrait s'utiliser ainsi toto.bat scripts
Mais, bon, il n'y aurait plus le plaisir masochiste de se casser la nennette avec un langage plus évolué (?), mais surtout plus valorisant auprès des collègues, des I.C. Microsoft, et des stagiaires de l'école de secrétariat du coin...
@-salutations
Michel Claveau
Et cela évite de renommer le rep c:scriptS pour creer le repertoire c:cript ;-) Decidemment d'en faire empêche d'écrire le mot, à moins que ça n'use la
touche 's' du clavier ;-) il fallait lire c:script
Do Re Mi chel La Si Do
Jaloux va ;-)
Faut dire que j'ai essayé de draguer des supers-nanas, en leur expliquant qu'une de mes activités, c'était d'administrer en batch.
Je dois dire que j'ai été assez déçu du résultat.
Maintenant, je préfère expliquer que je fais du développement avec des langages impératifs, dynamiques, méta-circulaires, multi-paradigmes et multi-threadés. Ensuite, je leur explique que je parle aussi français.
Je ne suis pas sûr que draguer ainsi soit efficace. Mais, au moins, ma femme n'a plus d'objet de jalousie...
MCI
Jaloux va ;-)
Faut dire que j'ai essayé de draguer des supers-nanas, en leur expliquant
qu'une de mes activités, c'était d'administrer en batch.
Je dois dire que j'ai été assez déçu du résultat.
Maintenant, je préfère expliquer que je fais du développement avec des
langages impératifs, dynamiques, méta-circulaires, multi-paradigmes et
multi-threadés. Ensuite, je leur explique que je parle aussi français.
Je ne suis pas sûr que draguer ainsi soit efficace. Mais, au moins, ma femme
n'a plus d'objet de jalousie...
Faut dire que j'ai essayé de draguer des supers-nanas, en leur expliquant qu'une de mes activités, c'était d'administrer en batch.
Je dois dire que j'ai été assez déçu du résultat.
Maintenant, je préfère expliquer que je fais du développement avec des langages impératifs, dynamiques, méta-circulaires, multi-paradigmes et multi-threadés. Ensuite, je leur explique que je parle aussi français.
Je ne suis pas sûr que draguer ainsi soit efficace. Mais, au moins, ma femme n'a plus d'objet de jalousie...
