Bonjour,
Mon programme sous Vb.net 2019 à chaque redémarage prévoit de demander à l'utilisateur le root complet du fichier sur lequel il veut travailler.
L'idée est logique si l'on change de fichier à chaque redémarage du programme, mais devient vite fastidieux lorsque l'on travail sur le même fichier à chaque redémarage du programme.
Je n'arrive pas à trouver le moyen de mémoriser le dernier root ouvert et le proposer à chaque redémarage avec choix oui/non. Je pense qu'il faut sauvegarder dans un fichier sur le disque dur le root et le récupérer au redémarage. Avez-vous une idée à me proposer ?
Exemple d'un long root à valider chaque fois (6 clics) : D:/SB/ABC/zxc/123.ech
Je vous joint mon sub actuel.
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 Option Explicit On Imports System.IO Imports System.Threading Imports System.Text Imports System.Text.RegularExpressions Public Sub OuvrirFichier() 'Mettre à non Enabled tous les Tools sauf STOP UnabledTools() Try ' affiche le formulaire et test si l'utilisateur a bien sélectionné un dossier. If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Dim DossierSelectionner As String = FolderBrowserDialog1.SelectedPath ' Affiche le chemin complet du dossier sélectionné par l'utilisateur TextBox8.Text = DossierSelectionner ' Affiche le nom du dossier sélectionné MsgBox("Vous avez sélectionné le chemin du dossier : " & IO.Path.GetDirectoryName(DossierSelectionner) & "\" & IO.Path.GetFileName(DossierSelectionner)) PathSave = IO.Path.GetDirectoryName(DossierSelectionner) + "\" + IO.Path.GetFileName(DossierSelectionner) Else ' Si l'utilisateur n'a pas sélectionné de dossier, avertissement MsgBox("Aucun dossier n'a été sélectionné", MsgBoxStyle.Exclamation, "Aucun dossier sélectionné") : Call InitAll() : Exit Sub ' GoTo FinSave End If Catch ex As Exception MessageBox.Show(ex.Message & "Stack Trace: " & vbCrLf & ex.StackTrace) Call InitAll() End Try End Sub
En vous remerciant pour vos idées.
Partager