Discussion :

[Skyggen]

Bonjour voila mon petit projet et je sèche un peu pour trouver une solution.


Alors mon projet consiste a créer un script qui va synchroniser deux dossier en regardant la date la plus récente des fichiers en se fixant par exemple pour un jour en quelque sorte une BackUp de clef USB.
j'ai aussi quelque problème pour fermer la fenêtre avec le bouton annuler.

Voici Mon Code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80

$objForm = New-Object System.Windows.Forms.Form
$objForm.Text ="Copieur de donées (Adrien Ciampone)"
$objForm.Size = New-Object System.Drawing.Size(420,150)
$objForm.StartPosition = "CenterScreen"

$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Size(10,50)
$OKButton.Size=New-Object System.Drawing.Size(50,20)
$OKButton.Text= "OK"
$OKButton.Add_Click({$x=$objTextBox.Text;$y=$objTextBox2.Text;$objForm.Close()})
$objForm.Controls.Add($OKButton)

$annuler = New-Object System.Windows.Forms.Button
$annuler.Location = New-Object System.Drawing.Size(60,50)
$annuler.Size=New-Object System.Drawing.Size(50,20)
$annuler.Text= "annuler"
$annuler.Add_Click({$objForm.Close()})
$objForm.Controls.Add($annuler)


$CheckBox = New-Object System.Windows.Forms.CheckBox
$CheckBox.Location = New-Object System.Drawing.Size(200,50)
$CheckBox.Size=New-Object System.Drawing.Size(50,20)
$CheckBox.Text= "Syncronisation via la date"
$CheckBox.Size=New-Object System.Drawing.Size(200,15)
$objForm.Controls.Add($CheckBox)



$obLabel= New-Object System.Windows.Forms.Label
$obLabel.Location = New-Object System.Drawing.Size(10,5)
$obLabel.Name='label'
$obLabel.Text= 'Choix lettre du chemin pour recup'
$obLabel.Size=New-Object System.Drawing.Size(180,15)
$objForm.Controls.Add($obLabel)
$objTextBox= New-Object System.Windows.Forms.TextBox
$objTextBox.Location= New-Object System.Drawing.Size(10,25)
$objTextBox.size = New-Object System.Drawing.Size(120,20)
$objForm.Controls.Add($objTextBox)

$obLabel= New-Object System.Windows.Forms.Label
$obLabel.Location = New-Object System.Drawing.Size(200,5)
$obLabel.Name='label'
$obLabel.Text= 'Choix lettre du chemin pour desti'
$obLabel.Size=New-Object System.Drawing.Size(200,15)
$objForm.Controls.Add($obLabel)
$objTextBox2= New-Object System.Windows.Forms.TextBox
$objTextBox2.Location= New-Object System.Drawing.Size(200,25)
$objTextBox2.size = New-Object System.Drawing.Size(120,20)
$objForm.Controls.Add($objTextBox2)

$objForm.Add_Shown({$objForm.Activate()})
[void]$objForm.ShowDialog()

$filedate = get-date -uformat "%d.%m.%y  %Hh%M"

$var  = "$x"
$var2  = "$y"
foreach($element in $var){
foreach($element2 in $var2){
$chemin = $element2 + $filedate

$a = new-object -comobject wscript.shell 

$intAnswer = $a.popup("mise a jour en cour",  0,"Delete Files",3) 

If ($intAnswer -eq 6) { 
    copy -path $element -destination $chemin -Recurse

$a = new-object -comobject wscript.shell
$b = $a.popup("La mise a jour a bien été faite")

} else { 
    $a.popup("You answered no.")
} 
  
}
}

merci d'avance

[Laurent Dardenne]

Salut,

j'ai aussi quelque problème pour fermer la fenêtre avec le bouton annuler.

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
$ModalResult=$objForm.ShowDialog()
if ( $ModalResult -ne "Cancel") 
{
  
  $filedate = get-date -uformat "%d.%m.%y  %Hh%M"
# ... suite

Pour les popup tu peux utiliser ceci, au lieu d'utiliser un objet COM.
Pour la synchro je te laisse avancer sur ton script, sinon une autre solution de niveau avancée.