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 """ ¶ms
si quelqu un peut me dire ce qui ne va pas dans ce bout de code ....je lui
en serrais tres reconnaissant !
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.
merci pour tout !
mais enfaites ca n etais pas ca que j demandais...de plus il manque une
partie...
j aurais voulu savoir :
voici la phrase d origine que j aimerais modiifer :
testfile.WriteLine result
et j aimerais qu elle soit de ce syle ci :
testfile.WriteLine("dim =") result
voila ....just pour que le contenu de ce resultat soit interpreté dans une
autre script ....
"Georges MAUREL" wrote:
Merci jbongran
Comme je suis fair-play je vais donner la solution...
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" <jbongran@free.fr> a écrit dans le message de news:
%23ceK$kZyFHA.2072@TK2MSFTNGP14.phx.gbl...
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.
Georges MAUREL
Sympa.... Je vous mache le boulot et ça ne vous convient pas... J'ai essayé de deviner ce que vous vouliez faire...et je pense ne pas en être loin...
Bref...
La concaténation de chaine se fait avec & Donc vous devez avoir testfile.WriteLine "dim =" & result tout simplement
Cordialement Georges
"HeLioZz" a écrit dans le message de news:
merci pour tout ! mais enfaites ca n etais pas ca que j demandais...de plus il manque une partie... j aurais voulu savoir :
voici la phrase d origine que j aimerais modiifer : testfile.WriteLine result
et j aimerais qu elle soit de ce syle ci :
testfile.WriteLine("dim =") result
voila ....just pour que le contenu de ce resultat soit interpreté dans une autre script .... "Georges MAUREL" wrote:
Merci jbongran Comme je suis fair-play je vais donner la solution...
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.
Sympa.... Je vous mache le boulot et ça ne vous convient pas...
J'ai essayé de deviner ce que vous vouliez faire...et je pense ne pas en
être loin...
Bref...
La concaténation de chaine se fait avec &
Donc vous devez avoir
testfile.WriteLine "dim =" & result
tout simplement
Cordialement
Georges
"HeLioZz" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news: C78ABB95-0B5D-40D3-A9F3-A91D32BAB82D@microsoft.com...
merci pour tout !
mais enfaites ca n etais pas ca que j demandais...de plus il manque une
partie...
j aurais voulu savoir :
voici la phrase d origine que j aimerais modiifer :
testfile.WriteLine result
et j aimerais qu elle soit de ce syle ci :
testfile.WriteLine("dim =") result
voila ....just pour que le contenu de ce resultat soit interpreté dans une
autre script ....
"Georges MAUREL" wrote:
Merci jbongran
Comme je suis fair-play je vais donner la solution...
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" <jbongran@free.fr> a écrit dans le message de news:
%23ceK$kZyFHA.2072@TK2MSFTNGP14.phx.gbl...
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.
HeLioZz
merci beaucoup pour tout !! et desolé je ne vx pas vous paraitre déagreable...; vous me rendez bien service c tres gentil de votre part
cordialement julien
"Georges MAUREL" wrote:
Sympa.... Je vous mache le boulot et ça ne vous convient pas... J'ai essayé de deviner ce que vous vouliez faire...et je pense ne pas en être loin...
Bref...
La concaténation de chaine se fait avec & Donc vous devez avoir testfile.WriteLine "dim =" & result tout simplement
Cordialement Georges
"HeLioZz" a écrit dans le message de news:
merci pour tout ! mais enfaites ca n etais pas ca que j demandais...de plus il manque une partie... j aurais voulu savoir :
voici la phrase d origine que j aimerais modiifer : testfile.WriteLine result
et j aimerais qu elle soit de ce syle ci :
testfile.WriteLine("dim =") result
voila ....just pour que le contenu de ce resultat soit interpreté dans une autre script .... "Georges MAUREL" wrote:
Merci jbongran Comme je suis fair-play je vais donner la solution...
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.
merci beaucoup pour tout !!
et desolé je ne vx pas vous paraitre déagreable...;
vous me rendez bien service c tres gentil de votre part
cordialement
julien
"Georges MAUREL" wrote:
Sympa.... Je vous mache le boulot et ça ne vous convient pas...
J'ai essayé de deviner ce que vous vouliez faire...et je pense ne pas en
être loin...
Bref...
La concaténation de chaine se fait avec &
Donc vous devez avoir
testfile.WriteLine "dim =" & result
tout simplement
Cordialement
Georges
"HeLioZz" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news: C78ABB95-0B5D-40D3-A9F3-A91D32BAB82D@microsoft.com...
merci pour tout !
mais enfaites ca n etais pas ca que j demandais...de plus il manque une
partie...
j aurais voulu savoir :
voici la phrase d origine que j aimerais modiifer :
testfile.WriteLine result
et j aimerais qu elle soit de ce syle ci :
testfile.WriteLine("dim =") result
voila ....just pour que le contenu de ce resultat soit interpreté dans une
autre script ....
"Georges MAUREL" wrote:
Merci jbongran
Comme je suis fair-play je vais donner la solution...
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" <jbongran@free.fr> a écrit dans le message de news:
%23ceK$kZyFHA.2072@TK2MSFTNGP14.phx.gbl...
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$
