IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Afficher nom d'un fichier sans le chemin d'accès [Débutant]


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Février 2020
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Février 2020
    Messages : 117
    Par défaut Afficher nom d'un fichier sans le chemin d'accès
    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

  2. #2
    Membre Expert Avatar de Phil Rob
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2013
    Messages
    1 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 613
    Par défaut
    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

  3. #3
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Février 2020
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Février 2020
    Messages : 117
    Par défaut
    Bonjour Phil Rob


    Merci c'est ce que j'avais besoin

    Bonne journée

  4. #4
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Février 2020
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Février 2020
    Messages : 117
    Par défaut
    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

  5. #5
    Membre Expert Avatar de Phil Rob
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2013
    Messages
    1 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 613
    Par défaut
    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 ...

  6. #6
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Février 2020
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Février 2020
    Messages : 117
    Par défaut
    Merci Phil Rob

    Bonne soirée

  7. #7
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Février 2020
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Février 2020
    Messages : 117
    Par défaut
    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

  8. #8
    Membre Expert Avatar de Phil Rob
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2013
    Messages
    1 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 613
    Par défaut
    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
    ...

  9. #9
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Février 2020
    Messages
    117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Février 2020
    Messages : 117
    Par défaut
    Phil Rob

    super merci à toi

    Bonne soirée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Récupérer le nom d'un fichier via un chemin d'accès
    Par vivimax18 dans le forum Tkinter
    Réponses: 2
    Dernier message: 01/06/2020, 18h58
  2. [Batch] Obtenir uniquement le nom d'un fichier sans son chemin
    Par Guiiil dans le forum Scripts/Batch
    Réponses: 2
    Dernier message: 08/07/2010, 10h40
  3. Réponses: 2
    Dernier message: 23/03/2009, 16h45
  4. Récupérer le nom du fichier sans le chemin d'accès
    Par bianconeri dans le forum Langage
    Réponses: 2
    Dernier message: 07/01/2006, 16h02
  5. Comment récupérer le nom du fichier sans le chemin ?
    Par st0nky dans le forum Débuter
    Réponses: 3
    Dernier message: 08/12/2005, 11h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo