Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft date VBS

date VBS

13 réponses
Avatar
HeLioZz
voila enfaites j voudrais donner a une archive rar la date courante dans le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c:\ sauve\La.date & ".rar c:\backup"
Shell.run """C:\program files\winrar\winrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je lui
en serrais tres reconnaissant !

Cordialement
julien
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Georges MAUREL
Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites j voudrais donner a une archive rar la date courante dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je lui
en serrais tres reconnaissant !

Cordialement
julien



Avatar
HeLioZz
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites j voudrais donner a une archive rar la date courante dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je lui
en serrais tres reconnaissant !

Cordialement
julien








Avatar
Georges MAUREL
La fonction replace remplace un caractère par un autre dans une chaine
Dans le cas présent, on a v_date qui vaudra 05_10_2005 au lieu de 05/10/2005
Date est une fonction vbscript qui renvoie la date système

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur
dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites j voudrais donner a une archive rar la date courante
dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je
lui
en serrais tres reconnaissant !

Cordialement
julien










Avatar
HeLioZz
voici mon code qui ne fonctionne pas :

dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next


v_date = replace(date,"/","")


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params


je me suis trompé dans la syntaxe ?

"Georges MAUREL" wrote:

La fonction replace remplace un caractère par un autre dans une chaine
Dans le cas présent, on a v_date qui vaudra 05_10_2005 au lieu de 05/10/2005
Date est une fonction vbscript qui renvoie la date système

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur
dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites j voudrais donner a une archive rar la date courante
dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je
lui
en serrais tres reconnaissant !

Cordialement
julien















Avatar
HeLioZz
juste au passage je souhaite que l archive(.rar) porte le nom du
pc(computername)suivi de la date...
si vous pouvez m aider ca m enleverait une epine du pied ...
c est pas pour faute d avoir essayer....
merci d avance

cordialement
julien

"Georges MAUREL" wrote:

La fonction replace remplace un caractère par un autre dans une chaine
Dans le cas présent, on a v_date qui vaudra 05_10_2005 au lieu de 05/10/2005
Date est une fonction vbscript qui renvoie la date système

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur
dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites j voudrais donner a une archive rar la date courante
dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je
lui
en serrais tres reconnaissant !

Cordialement
julien















Avatar
Georges MAUREL
Vous ne relisez jamais ce que vous écrivez....ni toutes les infos que l'on
vous a déjà donné.....
Vous avez écit
params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
au lieu de
params = "a -r -o- -m5 c:sauve" & v_date & ".rar c:backup" (pas d'espace
entre c: et sauve)

Mis à part cela
utilisez le script ci-dessous TEL QUEL

dim shell, params,WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

v_archive = WshNetwork.ComputerName & "_" & replace(date,"/","") &".rar"

set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c:sauve" & v_archive & " c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params


Cordialement
Georges



"HeLioZz" a écrit dans le message de
news:
juste au passage je souhaite que l archive(.rar) porte le nom du
pc(computername)suivi de la date...
si vous pouvez m aider ca m enleverait une epine du pied ...
c est pas pour faute d avoir essayer....
merci d avance

cordialement
julien

"Georges MAUREL" wrote:

La fonction replace remplace un caractère par un autre dans une chaine
Dans le cas présent, on a v_date qui vaudra 05_10_2005 au lieu de
05/10/2005
Date est une fonction vbscript qui renvoie la date système

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur
dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message
de
news:
voila enfaites j voudrais donner a une archive rar la date courante
dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code
....je
lui
en serrais tres reconnaissant !

Cordialement
julien

















Avatar
HeLioZz
j ai resolu le PB merci....
pr contre j aurais un petit souci
je souhaiterais affecter une variable a un contenu d browserforfolder
voici le code (la 1ere erreur est a la ligne 36)


'demande de source
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration du
serveur")


if Rep = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Dim shell, item
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit )



else
MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit
end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbssource.txt", True)
testfile.WriteLine dim source = result
testfile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation" &wscript.quit

End If



Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function


rep2= vbok
while rep2 = vbok

rep2 = MsgBox ("voulez vous reselectionner des fichiers a sauvegarder ?",
vbQuestion + vbOKCancel + vbApplicationModal ,"resaisir ")

if Rep2 = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbssource.txt", True)
testfile.WriteLine"dim source =" result
testfile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation"&wscript.quit
end if
wend

'demande destination

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez de la destination des fichiers "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)




If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbsdestination.txt", True)
testfile.WriteLine"dim destination =" Result
testfile.Close


end if


'demande exclusions



rep3 = MsgBox ("voulez vous exlure des fichiers ?", vbQuestion Or
vbOkCancel, "exclusions")

if rep3 = vbok then

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez les fichiers a exclure "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


else

MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbsexclu.txt", True)
testfile.WriteLine"dim exclu =" Result
testfile.Close

end if

MsgBox "L 'application s'est bien deroulée, fin de la
configuration",vbInformation + vbOkOnly + vbApplicationModal + 0,"Fin de la
configuration"




merci d avance

cordialement
julien

"Georges MAUREL" wrote:

Vous ne relisez jamais ce que vous écrivez....ni toutes les infos que l'on
vous a déjà donné.....
Vous avez écit
params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
au lieu de
params = "a -r -o- -m5 c:sauve" & v_date & ".rar c:backup" (pas d'espace
entre c: et sauve)

Mis à part cela
utilisez le script ci-dessous TEL QUEL

dim shell, params,WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

v_archive = WshNetwork.ComputerName & "_" & replace(date,"/","") &".rar"

set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c:sauve" & v_archive & " c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params


Cordialement
Georges



"HeLioZz" a écrit dans le message de
news:
juste au passage je souhaite que l archive(.rar) porte le nom du
pc(computername)suivi de la date...
si vous pouvez m aider ca m enleverait une epine du pied ...
c est pas pour faute d avoir essayer....
merci d avance

cordialement
julien

"Georges MAUREL" wrote:

La fonction replace remplace un caractère par un autre dans une chaine
Dans le cas présent, on a v_date qui vaudra 05_10_2005 au lieu de
05/10/2005
Date est une fonction vbscript qui renvoie la date système

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de séparateur
dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le message
de
news:
voila enfaites j voudrais donner a une archive rar la date courante
dans
le nom

voici le bout du code permettant de le faire (quand il fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code
....je
lui
en serrais tres reconnaissant !

Cordialement
julien






















Avatar
Georges MAUREL
Là ca devient fatiguant....
Jean-Claude BELLAMY, Michel Claveau, d'autres et moi-même vous avons déjà
donné des réponses pour votre problème. A savoir :
- Indentez votre source
- Une procédure ne peut pas ce trouver au milieu du programme principal
- ...
Faites un peu le ménage dans votre script et retestez-le avant de reposer
votre question

Cordialement
Georges




"HeLioZz" a écrit dans le message de
news:
j ai resolu le PB merci....
pr contre j aurais un petit souci
je souhaiterais affecter une variable a un contenu d browserforfolder
voici le code (la 1ere erreur est a la ligne 36)


'demande de source
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")


if Rep = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Dim shell, item
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit )



else
MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit
end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, testfile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbssource.txt", True)
testfile.WriteLine dim source = result
testfile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation" &wscript.quit

End If



Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function


rep2= vbok
while rep2 = vbok

rep2 = MsgBox ("voulez vous reselectionner des fichiers a sauvegarder ?",
vbQuestion + vbOKCancel + vbApplicationModal ,"resaisir ")

if Rep2 = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbssource.txt", True)
testfile.WriteLine"dim source =" result
testfile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation"&wscript.quit
end if
wend

'demande destination

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez de la destination des fichiers "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)




If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbsdestination.txt",
True)
testfile.WriteLine"dim destination =" Result
testfile.Close


end if


'demande exclusions



rep3 = MsgBox ("voulez vous exlure des fichiers ?", vbQuestion Or
vbOkCancel, "exclusions")

if rep3 = vbok then

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez les fichiers a exclure "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


else

MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile= filesys.CreateTextFile("C:backup vbsexclu.txt", True)
testfile.WriteLine"dim exclu =" Result
testfile.Close

end if

MsgBox "L 'application s'est bien deroulée, fin de la
configuration",vbInformation + vbOkOnly + vbApplicationModal + 0,"Fin de
la
configuration"




merci d avance

cordialement
julien

"Georges MAUREL" wrote:

Vous ne relisez jamais ce que vous écrivez....ni toutes les infos que
l'on
vous a déjà donné.....
Vous avez écit
params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
au lieu de
params = "a -r -o- -m5 c:sauve" & v_date & ".rar c:backup" (pas
d'espace
entre c: et sauve)

Mis à part cela
utilisez le script ci-dessous TEL QUEL

dim shell, params,WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

v_archive = WshNetwork.ComputerName & "_" & replace(date,"/","") &".rar"

set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c:sauve" & v_archive & " c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params


Cordialement
Georges



"HeLioZz" a écrit dans le message de
news:
juste au passage je souhaite que l archive(.rar) porte le nom du
pc(computername)suivi de la date...
si vous pouvez m aider ca m enleverait une epine du pied ...
c est pas pour faute d avoir essayer....
merci d avance

cordialement
julien

"Georges MAUREL" wrote:

La fonction replace remplace un caractère par un autre dans une chaine
Dans le cas présent, on a v_date qui vaudra 05_10_2005 au lieu de
05/10/2005
Date est une fonction vbscript qui renvoie la date système

Cordialement
Georges


"HeLioZz" a écrit dans le message
de
news:
je n ai pas bien compris le v_date = replace(date,"/","_")
pourriez vous m expliquer SVP....
merci d avance


Cordialement
Julien

"Georges MAUREL" wrote:

Bonjour,
vous faites bien compliqué pour pas grand chose....

set shell = WScript.CreateObject("WScript.Shell")


v_date = replace(date,"/","_")

( ou v_date = replace(date,"/","") si vous ne voulez pas de
séparateur
dans
le nom du fichier à créer)

params = "a -r -o- -m5 c: sauve" & v_date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params

Cordialement
Georges


"HeLioZz" a écrit dans le
message
de
news:
voila enfaites j voudrais donner a une archive rar la date
courante
dans
le nom

voici le bout du code permettant de le faire (quand il
fonctionne)



dim shell, params
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objItem in colItems
TempsLocal = objItem.LocalDateTime
An = Left(TempsLocal, 4)
Mois = Mid(TempsLocal, 5, 2)
Jour = Mid(TempsLocal, 7, 2)

Next



La.Date = Jour & "" & Mois & "" & An


set shell = WScript.CreateObject("WScript.Shell")
params = "a -r -o- -m5 c: sauveLa.date & ".rar c:backup"
Shell.run """C:program fileswinrarwinrar.exe """ &params



si quelqu un peut me dire ce qui ne va pas dans ce bout de code
....je
lui
en serrais tres reconnaissant !

Cordialement
julien
























Avatar
jbongran
HeLioZz wrote:
j ai resolu le PB merci....


NON !
Georges MAUREL à résolu ton problème.

Avatar
Georges MAUREL
Merci jbongran
Comme je suis fair-play je vais donner la solution...

Dim filesys, testfile
Dim shell, item

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Set filesys = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject("Shell.Application")

rep = MsgBox("Voulez-vous configurer le serveur pour les sauvegardes ?",
vbQuestion+vbOkCancel, "Lancement de la configuration du serveur")

if Rep = vbOk then
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier à sauvegarder"

v_boucle = True
while v_boucle
Set Item = shell.BrowseForFolder(0,titre,flag)

If isvalue(Item) Then
Result=Item.Title
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set testfile= filesys.OpenTextFile("C:backup vbssource.txt", 8,
True)
testfile.WriteLine result
testfile.Close
else
v_boucle = false
end if
wend

titre="Sélectionnez les dossiers à exclure"

v_boucle = True

while v_boucle
Set Item = shell.BrowseForFolder(0,titre,flag)

If isvalue(Item) Then
Result=Item.Title
If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set testfile= filesys.OpenTextFile("C:backup vbsexclu.txt", 8, True)
testfile.WriteLine result
testfile.Close
else
v_boucle = false
end if
wend

MsgBox "Configuration de la sauvegarde terminée",vbInformation + vbOkOnly
+ vbApplicationModal,"Fin de la configuration"

else
MsgBox "Configuration abandonnée !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation"
end if

wscript.quit

Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then
IsValue = False
Else
IsValue = True
end if
On Error GoTo 0
End Function


Cordialement
Georges


"jbongran" a écrit dans le message de news:
%23ceK$
HeLioZz wrote:
j ai resolu le PB merci....


NON !
Georges MAUREL à résolu ton problème.




1 2