Comgment classifier les fichiers par extension

Version imprimable

15/12/2011, 20h40
r2uvb

Comgment classifier les fichiers par extension

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 .
16/12/2011, 10h46
r2uvb

logiciel visual basic 2010 pas dot net
16/12/2011, 10h48
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ù?
16/12/2011, 10h51
tomlev

Citation:

Envoyé par r2uvb

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
16/12/2011, 10h58
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 :cry:
16/12/2011, 11h01
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 :cry: :roll:

Code:

1 2 3 dim fso as new filesystemobject fso.getfolder .........
comment ecrire le code ?

16/12/2011, 11h10
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 8O
16/12/2011, 11h13
tomlev

Citation:

Envoyé par r2uvb

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.
16/12/2011, 11h31
r2uvb

Citation:

Envoyé par tomlev

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 !!
16/12/2011, 11h40
BenoitM

bon j'ai la réponse cas désespéré et cas désespérant
sur ce je quitte ce post :no:
16/12/2011, 11h42
tomlev

Citation:

Envoyé par r2uvb

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.

Salut a tout

Code:

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 ?

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

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

Code:

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:

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:

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:

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

salut a toi merçi beaucoup

mais ça marche pas :cry:

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

Code:

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

Citation:

'move' is not a member of 'string'

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:

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

18/12/2011, 19h59
r2uvb

Merçiii beaucoup mon frere :ccool: