Discussion :

[r2uvb]

Salut a tout,
Comment classifier des fichiers images et video et autre sur des dossiers par extension sans voir les noms du fichier ?
Par exemple : tous les fichiers type extension *.mp4 déplacés vers un dossier video
Tous les fichiers type extension *.gif déplacés vers un dossier images

Merci .

[r2uvb]

logiciel visual basic 2010 pas dot net

[Neiflheim]

Bonjour,

Ce n'est pas compliqué à faire mais il faut que tu précises ce que tu souhaites faire. Trier tout le contenu d'un dossier? Transférer les fichiers d'une extension précise où?

[tomlev]

logiciel visual basic 2010 pas dot net

C'est à dire ? VB2010 c'est VB.NET...

Tu peux utiliser Directory.GetFiles, en passant l'extension comme searchPattern (sous la forme "*.mp4", "*.gif", etc). Ensuite pour chaque fichier renvoyé par Directory.GetFiles tu le déplaces avec File.Move

[r2uvb]

Bonjour


comment déplaces sans connaitre les noms du fichiers et classfier par extantion

par example il a plusieur type du fichiers sur un dossier

tout extantion video (*.avi,*.mp4...) déplaces vers le dossier video
tout extantion images (*.gif,*.jpeg....) déplaces vers le dossier images

comment fait sa

[BenoitM]

Faut déjà aprendre à coder en VB
Après apprendre à lire les réponses qu'on donne

et un jour peut-être que tu y arriveras

ici on est pour s'entre-aider pas pour faire les applications à la place des autres et pour faire une application il faut un minimum de base et mettre de la bonne volonté plutot que de

[r2uvb]

Code :

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

1
2
3
dim fso as new filesystemobject
 
fso.getfolder .........

comment ecrire le code ?

[BenoitM]

cas désespéré ou cas désespérant

ca ressemble à du VB6 ton truc.

Si c'est du VB6 je vois pas pourquoi tu postes dans une rubrique consacré au Dot.Net

Si c'est du VB6 je vois pas comment tu peux utiliser VisualStudio 2010

[tomlev]

comment déplaces sans connaitre les noms du fichiers

Si tu tenais compte des réponses qu'on te donne, on pourrait peut-être t'aider... La méthode Directory.GetFiles que je t'ai indiquée te donne les noms des fichiers, donc tu peux les connaitre.

[r2uvb]

Si tu tenais compte des réponses qu'on te donne, on pourrait peut-être t'aider... La méthode Directory.GetFiles que je t'ai indiquée te donne les noms des fichiers, donc tu peux les connaitre.

Ah bon
comment fait sa !

les etapes ?
-1 connaitre les noms du fichiers
-2 deplacé vers un dossier special (video,image..)

comme sa !!

[BenoitM]

bon j'ai la réponse cas désespéré et cas désespérant
sur ce je quitte ce post

[tomlev]

Ah bon
comment fait sa !

les etapes ?
-1 connaitre les noms du fichiers
-2 deplacé vers un dossier special (video,image..)

comme sa !!

Tu pourrais peut-être au moins essayer avant de venir poser des nouvelles questions ? Si tu n'es pas capable d'au moins commencer quelque chose avec les éléments que je t'ai donnés, commence par lire un cours... Si tu essaies et que tu bloques, on pourra t'aider, mais on ne fera pas le boulot à ta place.

[r2uvb]

Salut a tout

Code :

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

1
2
3
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As New Scripting.FileSystemObject
        x.GetFile("C:\New folder")

Comment je fait mtn pour connaitre les noms du fichiers sous le dossier newfolder ?

[tomlev]

Tu ne tiens toujours pas compte des réponses que je t'ai données

Pour obtenir la liste des fichiers dans le répertoire "C:\New folder", on fait comme ça :

Code :

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

Dim files As String() = Directory.GetFiles("C:\New folder")

(il faut ajouter Imports System.IO au début du fichier)

Ca te donne un tableau contenant les chemins complets des fichiers, et tu peux ensuite parcourir ce tableau avec For Each :

Code :

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

1
2
3
For Each file As String In files
    Console.WriteLine(file)
Next

Pour obtenir seulement les fichiers avec une certaine extension, c'est le même principe, mais en précisant un filtre dans GetFiles :

Code :

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

Dim files As String() = Directory.GetFiles("C:\New folder", "*.jpg")

Ensuite, pour déplacer les fichiers ailleurs, il faut construire le chemin complet de l'emplacement de destination :

Code :

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

1
2
3
4
5
For Each file As String In files
    Dim fileName As String = Path.GetFileName(file) ' obtient le nom du fichier sans le chemin
    Dim newFile As String = Path.Combine("C:\Images", fileName) ' construit le chemin de destination
    File.Move(file, newFile) ' Déplace le fichier vers le nouvel emplacement
Next

[r2uvb]

salut a toi merçi beaucoup

mais ça marche pas

j'ai copier le code sur une command et j'ai importer io.system
quand je clique echec....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim files As String() = Directory.GetFiles("C:\New folder", "*.jpg")
        For Each file As String In files
            Dim fileName As String = Path.GetFileName(file) ' obtient le nom du fichier sans le chemin
            Dim newFile As String = Path.Combine("C:\Images", fileName) ' construit le chemin de destination
            file.Move(file, newFile) ' Déplace le fichier vers le nouvel emplacement
        Next
    End Sub
End Class

'move' is not a member of 'string'

[tomlev]

Ah oui, j'oublie toujours que VB ne tient pas compte de la casse

Change simplement le nom de la variable file en filePath

Code :

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

1
2
3
4
5
For Each filePath As String In files
    Dim fileName As String = Path.GetFileName(filePath) ' obtient le nom du fichier sans le chemin
    Dim newFilePath As String = Path.Combine("C:\Images", fileName) ' construit le chemin de destination
    File.Move(filePath, newFilePath) ' Déplace le fichier vers le nouvel emplacement
Next

[r2uvb]

Merçiii beaucoup mon frere