Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.IO Public Class Form1 Private Sub Button_Fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Fermer.Click MsgBox(" A bientôt", MsgBoxStyle.OkOnly, "Fermeture") Me.Close() End Sub Private Sub Image_Critel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Image_Critel.Click Process.Start("http://www..fr") End Sub Private Sub Ouvrir_dossier_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir_dossier.HelpRequest Dim Liste() As String Dim Chemin As String = "C:" Dim Pattern As String = "*.*" Liste = System.IO.Directory.GetFileSystemEntries(Chemin, Pattern) End Sub Public Sub ChooseFolder() If Ouvrir_dossier.ShowDialog() = Windows.Forms.DialogResult.OK Then ZoneDeSaisi1.Text = Ouvrir_dossier.SelectedPath End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Selectionner_dossier.Click Dim MonRepertoire As String If Ouvrir_dossier.ShowDialog = Windows.Forms.DialogResult.OK Then MonRepertoire = Ouvrir_dossier.SelectedPath ZoneDeSaisi1.Text = MonRepertoire End If End Sub Private Sub Button_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_OK.Click Dim MesFichiers As String() Dim NoMrepertoire As String Dim fileName As String If ZoneDeSaisi1.Text "" And ZoneDeSaisi2.Text "" Then MsgBox("Veuillez saisir une requete.", MsgBoxStyle.Exclamation, "Oubli") ZoneDeSaisi1.Focus() Exit Sub End If Console.WriteLine("{0} moved to {1}", ZoneDeSaisi1, ZoneDeSaisi1) If Directory.Exists(ZoneDeSaisi1.Text) = False Then MsgBox("Chemin Inaccessible.", MsgBoxStyle.Exclamation, "Erreur") ZoneDeSaisi1.Focus() Exit Sub End If If CheckBox_Supprimer.Checked = False Then MesFichiers = Directory.GetFiles(ZoneDeSaisi1.Text) For Each fileName In MesFichiers My.Computer.FileSystem.RenameFile(fileName, ZoneDeSaisi2.Text & Path.GetFileName(fileName)) Next fileName Else MesFichiers = Directory.GetFiles(ZoneDeSaisi1.Text) For Each fileName In MesFichiers If InStr(Path.GetFileName(fileName), ZoneDeSaisi2.Text) <> 0 Then My.Computer.FileSystem.RenameFile(fileName, Mid(Path.GetFileName(fileName), 1, InStr(Path.GetFileName(fileName), ZoneDeSaisi2.Text) - 1) & Mid(Path.GetFileName(fileName), Len(ZoneDeSaisi2.Text) + (InStr(Path.GetFileName(fileName), ZoneDeSaisi2.Text)))) End If Next fileName End If If CheckBox_Renommer.Checked = True Then MesFichiers = Directory.GetDirectories(ZoneDeSaisi1.Text) For Each fileName In MesFichiers NoMrepertoire = fileName Do Until InStr(NoMrepertoire, "") = 0 NoMrepertoire = Mid(NoMrepertoire, InStr(NoMrepertoire, "") + 1) Loop If CheckBox_Supprimer.Checked = False Then My.Computer.FileSystem.RenameDirectory(fileName, ZoneDeSaisi2.Text & NoMrepertoire) Else If InStr(NoMrepertoire, ZoneDeSaisi2.Text) <> 0 Then My.Computer.FileSystem.RenameDirectory(fileName, Mid(NoMrepertoire, 1, InStr(NoMrepertoire, ZoneDeSaisi2.Text) - 1) & Mid(NoMrepertoire, InStr(NoMrepertoire, ZoneDeSaisi2.Text) + Len(ZoneDeSaisi2.Text))) End If End If Next fileName End If 'If CheckBox_Ancien.Checked = True Then 'MsgBox("Confirmer la suppression.", MsgBoxStyle.OkCancel, "Confirmation") 'For Each fileName In MesFichiers 'NoMrepertoire = fileName 'Do Until InStr(NoMrepertoire, NoMrepertoire.) 'Loop 'Next fileName 'End If End Sub End Class