Discussion :

[mlescaudron21]

Salut,je vous explique mon problème:
Je voudrais crée un programme qui cherche des elements dans un dossier
spécifier et qui copie ce que l'utilisataeur a cocher dans un dossier sur
le bureau.
Je dispose donc:
*D'une checklistbox (pour selectionner les items rechercher.)
*D'une combo-box(pour dire de rechercher a telle endroit)
* De 1 bouton(pour copier les items selectionner dans le bureau)
*+ 1 bouton(pour effacer ce qu'il y a dans la checklistbox)
d'une textbox (pour la recherche des dossier)
Donc voici le code pour rechercher

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem = "C:\Documents and Settings\" & Form1.TextBox1.Text & "\Application Data\Microsoft\Outlook" Then
            For Each Fichier As String In My.Computer.FileSystem.GetFiles("C:\Documents and Settings\" & Form1.TextBox1.Text & "\Application Data\Microsoft\Outlook", FileIO.SearchOption.SearchAllSubDirectories)
 
                If Path.GetFileName(Fichier).ToLower.Contains(".") Then
                    CheckedListBox1.Items.Add(Fichier)
 
                End If
 
            Next
        End If
    End Sub

Pourquoi est-ce que j'ai mis points?est bien parce que si je mets .NK2 il ne trouve pas,si il y a un problème pour régler sa merci de m'en informer.
Voici le code pour la combobox:

Code :

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

1
2
3
4
5
6
7
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        ComboBox1.Items.Add("C:\Documents and Settings\" & Form1.TextBox1.Text & "\Application Data\Microsoft\Outlook")
 
    End Sub

Et VOICI LE CODE pour copier le fichier(qui ne marche pas)

Code :

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

1
2
3
4
5
6
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CheckedListBox1.SelectedItems.CopyTo("C:\Documents and Settings\" & Form1.TextBox1.Text & "\Desktop\Nouveau dossier")
 
    End Sub
 
End Class

ET sa me mets comme erreur:

Erreur 1 Argument non spécifié pour le paramètre 'index' de 'Public Sub CopyTo(destination As System.Array, index As Integer)'
Erreur 2 Une valeur de type 'String' ne peut pas être convertie en 'System.Array'.

ET VOICI LE CODE EN ENTIER

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
Imports System.IO
Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        ComboBox1.Items.Add("C:\Documents and Settings\" & Form1.TextBox1.Text & "\Application Data\Microsoft\Outlook")
 
    End Sub
    Private Sub ListBox1_selectedIndexChanged(ByVal send As System.Object, ByVal e As System.EventArgs)
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        CheckedListBox1.Items.Clear()
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem = "C:\Documents and Settings\" & Form1.TextBox1.Text & "\Application Data\Microsoft\Outlook" Then
            For Each Fichier As String In My.Computer.FileSystem.GetFiles("C:\Documents and Settings\" & Form1.TextBox1.Text & "\Application Data\Microsoft\Outlook", FileIO.SearchOption.SearchAllSubDirectories)
 
                If Path.GetFileName(Fichier).ToLower.Contains(".") Then
                    CheckedListBox1.Items.Add(Fichier)
 
                End If
 
            Next
        End If
    End Sub
 
    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CheckedListBox1.SelectedItems.CopyTo("C:\Documents and Settings\" & Form1.TextBox1.Text & "\Desktop\Nouveau dossier")
 
    End Sub
 
End Class

J'aimerais que l'on me disent comment faire pour copier les element cocher qui ont été rechercher dans un dossier.
Ne vous occuper pas de & Form1.TextBox1.Text & c'est parce qu'il y a une autre fenetre pour indiquer cette element.

[DeWaRs]

Hello,

Petite piste, comme le message d'erreur l'indique, la fonction CopyTo prend 2 parametre, un Tableau System.Array et un index As Integer. Tu ne lui passes qu'un seul paramètre, un string d'ou ton message d'erreur. Par contre, la fonction CopyTo ne copie pas les fichiers, alors soit je n'ai rien compris a ton code, soit tu fais fausse route. Jette un oeuil ICI :
Cordialement.

DeWaRs.

[mlescaudron21]

Effectivement je dois completement me tromper,alors comment je peux copier les fichier que je coche,?

[DeWaRs]

Hello,

Tu peux regarder l'exemple suivant pour la copie de fichier. Ce que tu dois faire c'est une boucle qui, pour chaque élément coché dans ta CheckedListBox, faire la copie du fichier grace à la fonction que je t'ai donnée.

Cordialement.

DeWaRs

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
Option Explicit
 
Private Declare Function CopyFileA Lib "kernel32" _
  ( _
  ByVal lpExistingFileName As String, _
  ByVal lpNewFileName As String, _
  ByVal bFailIfExists As Long _
  ) _
  As Long
 
Private Const MAX_PATH = 260
 
'---------------------------------------------------------------------------------------
' Procedure : MyFileCopy
' DateTime  : 25/08/2008 13:16
' Author    : FAQ VB
' Purpose   : Copy source to destination. The optional 'Overwrite' arguments allows
'             to control the function behaviour if the destination file already esists
'---------------------------------------------------------------------------------------
'
Function MyFileCopy(ByVal Source As String, _
                   ByVal Destination As String, _
                   Optional ByVal Overwrite As Boolean = True) As Boolean
    If Len(Destination) > MAX_PATH Or Len(Source) > MAX_PATH Then
        MyFileCopy = False
    Else
        If (Overwrite) Then
            MyFileCopy = (CopyFileA(Source, Destination, 0) <> 0)
        Else
            MyFileCopy = (CopyFileA(Source, Destination, 1) <> 0)
        End If
    End If
End Function
 
Private Sub Test()
 
    Dim ret         As Boolean
 
    ' Si overwrite vaut False, la fonction échoue si le fichier de destination existe déja
    ret = MyFileCopy("C:\Mainfolder\Subfolder\File.txt", "\\remotecomputer\sharedfolder\File.txt", False)
 
    ' Si overwrite vaut True, la fonction réussit, que le fichier de destination existe ou non
    ' Si il existait, il est écrasé
 
    ret = MyFileCopy("C:\Mainfolder\Subfolder\File.txt", "\\remotecomputer\sharedfolder\File.txt", True)
 
    ' Si on omet le dernier argument, la fonction se comporte comme dans le cas précédent (Overwrite)
    ret = MyFileCopy("C:\Mainfolder\Subfolder\File.txt", "\\remotecomputer\sharedfolder\File.txt")
 
End Sub