Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc :
Demander à un utilisateur un nom de répertoire à créer, le créer et
créer des sous-répertoires pré-définis. Comment poser des questions et
passer les réponses dans le script ?????
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
ThierryP
Petite question subsidiaire !!
en cas d'existence, comment gérer l'erreur ???
encore merci
thierryp
Bonjour à tous
Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc : Demander à un utilisateur un nom de répertoire à créer, le créer et créer des sous-répertoires pré-définis. Comment poser des questions et passer les réponses dans le script ?????
D'avance merci
thierryp
Petite question subsidiaire !!
en cas d'existence, comment gérer l'erreur ???
encore merci
thierryp
Bonjour à tous
Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc :
Demander à un utilisateur un nom de répertoire à créer, le créer et
créer des sous-répertoires pré-définis. Comment poser des questions et
passer les réponses dans le script ?????
Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc : Demander à un utilisateur un nom de répertoire à créer, le créer et créer des sous-répertoires pré-définis. Comment poser des questions et passer les réponses dans le script ?????
D'avance merci
thierryp
scraper
Bonjour ThierryP, dans le message news: tu disais :
Petite question subsidiaire !!
en cas d'existence, comment gérer l'erreur ???
encore merci
avec un ImputBox ?
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies l'existence du dossier ....
--
Adresse invalide Merci de répondre sur le forum ... http://scraper.chez.tiscali.fr
scraper
Bonjour ThierryP, dans le message
news:e6M4mtwrFHA.3424@TK2MSFTNGP14.phx.gbl
tu disais :
Petite question subsidiaire !!
en cas d'existence, comment gérer l'erreur ???
encore merci
avec un ImputBox ?
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un
nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies
l'existence du dossier ....
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr
Bonjour ThierryP, dans le message news: tu disais :
Petite question subsidiaire !!
en cas d'existence, comment gérer l'erreur ???
encore merci
avec un ImputBox ?
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies l'existence du dossier ....
--
Adresse invalide Merci de répondre sur le forum ... http://scraper.chez.tiscali.fr
scraper
~Jean-Marc~ [MVP]
Salutations *scraper* ! Dans <news: tu nous disais :
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies l'existence du dossier ....
Oh ! Le cradoc ! <VBG>
Et fso.FolderExists ? ;-)
@+
-- ~Jean-Marc~ MSAE & MVP Windows XP Fr M'écrire : http://msmvps.com/docxp/contact.aspx - http://docxp.mvps.org - http://msmvps.com/docxp/ - Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Salutations *scraper* !
Dans <news:uPL1yixrFHA.2876@TK2MSFTNGP12.phx.gbl>
tu nous disais :
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un
nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu
vérifies l'existence du dossier ....
Oh ! Le cradoc ! <VBG>
Et fso.FolderExists ? ;-)
@+
--
~Jean-Marc~ MSAE & MVP Windows XP Fr
M'écrire : http://msmvps.com/docxp/contact.aspx
- http://docxp.mvps.org - http://msmvps.com/docxp/ -
Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Salutations *scraper* ! Dans <news: tu nous disais :
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies l'existence du dossier ....
Oh ! Le cradoc ! <VBG>
Et fso.FolderExists ? ;-)
@+
-- ~Jean-Marc~ MSAE & MVP Windows XP Fr M'écrire : http://msmvps.com/docxp/contact.aspx - http://docxp.mvps.org - http://msmvps.com/docxp/ - Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
scraper
Bonjour ~Jean-Marc~ [MVP], dans le message news:% tu disais :
Salutations *scraper* ! Dans <news: tu nous disais :
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies l'existence du dossier ....
Oh ! Le cradoc ! <VBG>
Et fso.FolderExists ? ;-)
ça existe ça ?
ooops !
lol
merci ...
--
Adresse invalide Merci de répondre sur le forum ... http://scraper.chez.tiscali.fr
scraper
Bonjour ~Jean-Marc~ [MVP], dans le message
news:%23G6v4dyrFHA.2540@TK2MSFTNGP09.phx.gbl
tu disais :
Salutations *scraper* !
Dans <news:uPL1yixrFHA.2876@TK2MSFTNGP12.phx.gbl>
tu nous disais :
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un
nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu
vérifies l'existence du dossier ....
Oh ! Le cradoc ! <VBG>
Et fso.FolderExists ? ;-)
ça existe ça ?
ooops !
lol
merci ...
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr
Bonjour ~Jean-Marc~ [MVP], dans le message news:% tu disais :
Salutations *scraper* ! Dans <news: tu nous disais :
sNewFolder=InputBox("Choisissez un nouveau nom de dossier","Créer un nouveau dossier ...","Saisissez le nom")
ensuite, avec une gestion d'erreurs (On Error Resume Next), tu vérifies l'existence du dossier ....
Oh ! Le cradoc ! <VBG>
Et fso.FolderExists ? ;-)
ça existe ça ?
ooops !
lol
merci ...
--
Adresse invalide Merci de répondre sur le forum ... http://scraper.chez.tiscali.fr
scraper
fxd
Ca devrait t'aider aussi :
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Backup)}!" & _ strComputer & "rootcimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile " _ & "Where LogFileName='Security'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog( _ "C:tempapplication.evt") WScript.Echo errBackupLog Next
"ThierryP" a écrit dans le message de news: %
Bonjour à tous
Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc : Demander à un utilisateur un nom de répertoire à créer, le créer et créer des sous-répertoires pré-définis. Comment poser des questions et passer les réponses dans le script ?????
D'avance merci
thierryp
Ca devrait t'aider aussi :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\" & _
strComputer & "rootcimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile " _
& "Where LogFileName='Security'")
For Each objLogfile in colLogFiles
errBackupLog = objLogFile.BackupEventLog( _
"C:tempapplication.evt")
WScript.Echo errBackupLog
Next
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de
news: %23y8bLowrFHA.2076@TK2MSFTNGP14.phx.gbl...
Bonjour à tous
Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc :
Demander à un utilisateur un nom de répertoire à créer, le créer et créer
des sous-répertoires pré-définis. Comment poser des questions et passer
les réponses dans le script ?????
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Backup)}!" & _ strComputer & "rootcimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile " _ & "Where LogFileName='Security'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog( _ "C:tempapplication.evt") WScript.Echo errBackupLog Next
"ThierryP" a écrit dans le message de news: %
Bonjour à tous
Je me lance depuis peu dans VBS et je voudrais réaliser un p'tit truc : Demander à un utilisateur un nom de répertoire à créer, le créer et créer des sous-répertoires pré-définis. Comment poser des questions et passer les réponses dans le script ?????
D'avance merci
thierryp
Do Re Mi chel La Si Do
Bonjour !
Si tu passais pas un Batch, ce serait bien plus simple.
L'exemple ci-dessous demande un nom de répertoire ; s'il n'existe pas (déjà), il le crée, et crée les sous-répertoires AAA BBB et CCC.
@echo off :DEBUT set REP set /PREP="Nom du répertoire à créer (vide pour terminer) : " if X%REP%X==XX goto :EOF if exist %REP% (echo Ce répertoire existe déjà goto :DEBUT)
Si tu passais pas un Batch, ce serait bien plus simple.
L'exemple ci-dessous demande un nom de répertoire ; s'il n'existe pas
(déjà), il le crée, et crée les sous-répertoires AAA BBB et CCC.
@echo off
:DEBUT
set REP set /PREP="Nom du répertoire à créer (vide pour terminer) : "
if X%REP%X==XX goto :EOF
if exist %REP% (echo Ce répertoire existe déjà
goto :DEBUT)
Si tu passais pas un Batch, ce serait bien plus simple.
L'exemple ci-dessous demande un nom de répertoire ; s'il n'existe pas (déjà), il le crée, et crée les sous-répertoires AAA BBB et CCC.
@echo off :DEBUT set REP set /PREP="Nom du répertoire à créer (vide pour terminer) : " if X%REP%X==XX goto :EOF if exist %REP% (echo Ce répertoire existe déjà goto :DEBUT)
