Discussion :

[rezolu]

Bonjour à tous

J'utilise le code suivant pour récupérer le nom d'un fichier dans un textbox, cela fonctionne mais je voudrai juste afficher le nom du fichier sans tout son chemin d'accès.

Code :

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

1
2
3
4
5
6
 
Dim chemin As String
        Dim OpenFileDialogPDF As OpenFileDialog = New OpenFileDialog
        OpenFileDialogPDF.ShowDialog()
        chemin = OpenFileDialogPDF.FileName
        TboxPDF.Text = chemin

Merci d'avance

[Phil Rob]

Bonsoir,

Utilise SafeFileName plutot que FileName.

Code :

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

1
2
3
4
5
6
 
Dim chemin As String
        Dim OpenFileDialogPDF As OpenFileDialog = New OpenFileDialog
        OpenFileDialogPDF.ShowDialog()
        chemin = OpenFileDialogPDF.SafeFileName    '   FileName
        TboxPDF.Text = chemin

[rezolu]

Bonjour Phil Rob


Merci c'est ce que j'avais besoin

Bonne journée

[rezolu]

Re bonjour Phil Rob

J'ai encore une petite question, après avoir récupérer le nom du fichier je copie ce fichier vers un répertoire spécifique avec :

Code :

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

1
2
 
My.Computer.FileSystem.CopyFile(CheminFichier, My.Settings.DBpath & "\" & NomFichier, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

Mais j'aimerai en plus créer un nouveau répertoire et si le répertoire existe déjà uniquement copier le fichier

Merci
Bonne journée

[Phil Rob]

Bonjour,

Le code suivant devrait t'être utile :

Code :

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

1
2
3
 
      Dim UnDossierNeuf As String = "X:\Tmp\MonDossierNeuf"
      Directory.CreateDirectory(UnDossierNeuf)

Autres codes utiles :

Code :

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

1
2
3
4
5
6
7
8
 
        If System.IO.File.Exists("X:\Tmp\MonBeauFichier") Then
            MessageBox.Show("Ce fichier existe")
        End If
 
        If System.IO.Directory.Exists("X:\Tmp") Then
            MessageBox.Show("Ce dossier existe")
        End If

Bon amusement ...

[rezolu]

Merci Phil Rob

Bonne soirée

[rezolu]

Re bonjour Phil Rob

Tout fonction nickel si j'ajoute des données, mais si je fait annuler alors j'ai un message d'erreur

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
 
Private Sub BpImporterPDF_Click(sender As Object, e As EventArgs) Handles BpImporterPDF.Click
 
        Dim NomFichier As String
        Dim fichier As String
        Dim CheminFichier As String
        Dim path As String = My.Settings.DBpath & "\FicheTechnique\" & TboxMARQUE.Text & "\" 'Crée le repertoire avec le champ Marque
        Dim OpenFileDialogPDF As OpenFileDialog = New OpenFileDialog
 
        OpenFileDialogPDF.ShowDialog()
 
        NomFichier = OpenFileDialogPDF.SafeFileName 'Recuperer uniquement le nom du fichier
        fichier = path & NomFichier
        TboxPDF.Text = NomFichier
        CheminFichier = OpenFileDialogPDF.FileName 'Recupere le chemin du fichier
        'Création du repertoire
 
        If Directory.Exists(path) Then 'vérifie l’existence du répertoire
            'Si le répertoire existe il ne fait rien
        Else 'Si le répertoire n'existe pas, il le créer
 
            Directory.CreateDirectory(path)
 
        End If
        'Copie le fichier vers DBpath avec le nom du fichier ''NomFichier''
        FileCopy(CheminFichier, fichier)
 
    end sub

Merci d'avance

[Phil Rob]

Re,

Tu dois traiter le résultat de l'OpenFileDialog seulement si tu obtiens une réponse valide (c'est vrai pour toutes les boîtes de dialogue).

Par exemple :

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
 
Private Sub BpImporterPDF_Click(sender As Object, e As EventArgs) Handles BpImporterPDF.Click
 
        Dim NomFichier As String
        Dim fichier As String
        Dim CheminFichier As String
        Dim path As String = My.Settings.DBpath & "\FicheTechnique\" & TboxMARQUE.Text & "\" 'Crée le repertoire avec le champ Marque
        Dim OpenFileDialogPDF As OpenFileDialog = New OpenFileDialog
 
       ' ****** OpenFileDialogPDF.ShowDialog()
 
          If OpenFileDialogPDF.ShowDialog() = Windows.Forms.DialogResult.OK Then 
 
'  La réponse à la boîte de dialogue est plausible et l'utilisateur à pressé <ENTER>.
 
 
        NomFichier = OpenFileDialogPDF.SafeFileName 'Recuperer uniquement le nom du fichier
        fichier = path & NomFichier
        TboxPDF.Text = NomFichier
        CheminFichier = OpenFileDialogPDF.FileName 'Recupere le chemin du fichier
        'Création du repertoire
 
        If Directory.Exists(path) Then 'vérifie l’existence du répertoire
            'Si le répertoire existe il ne fait rien
        Else 'Si le répertoire n'existe pas, il le créer
 
            Directory.CreateDirectory(path)
 
        End If
        'Copie le fichier vers DBpath avec le nom du fichier ''NomFichier''
        FileCopy(CheminFichier, fichier)
 
Else
 
'  La réponse à la boîte de dialogue ne convient pas.  C'est un <ANNULE>.
 
End If
 
    end sub

...

[rezolu]

Phil Rob

super merci à toi

Bonne soirée