Discussion :

[BasicZX81]

Bonjour à tous,
J'ai une classe avec un constructeur New comme ceci :

Public class MaClasse
Public sub New(FileName as string)
....
End Sub
End class

FileName peux être aussi bien un chemin d’accès complet à un fichier (Ex: D:\Dossier\Fichier.ini) ou seulement le nom d'un fichier (Ex: Fichier.ini).
A l'interieur de la classe j'ai besoin d'analyser ce chemin :
Si c'est un chemin complet, je conserve ce chemin
Si c'est un non de fichier le chemin devient : Application.StartupPath & "\" & FileName

Y a t'il une méthode simple et fiable pour analyser ce chemin et savoir si il s'agit de l'un des 2 cas ?

Merci beaucoup pour votre aide.

[wallace1]

Bonjour,

En utilisant une propriété :

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
 
Imports System.IO
 
Public Class Cls_File
 
    Private _FilePath As String
    Public Property FilePath() As String
        Get
            Return _FilePath
        End Get
        Set(ByVal value As String)
            Dim fi As New FileInfo(value)
            _FilePath = fi.FullName
        End Set
    End Property
 
    Public Sub New(File$)
        FilePath = File
    End Sub
End Class

PS1 : De plus ça tombe bien car avec la classe FileInfo si tu passes un nom de fichier (sans chemin complet) alors la méthode FullName te retourne le chemin de ce nom de fichier depuis le répertoire d'exécution de ton appli (chemin complet)

PS2 : A toi de l'agrémenter afin de tester l'extension ...etc....


1- Exécution avec un chemin complet de fichier :

Code :

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

1
2
3
 
   Dim f As New Cls_File("D:\Dossier\Fichier.ini")
        MsgBox(f.FilePath)

--> Retourne :

"D:\Dossier\Fichier.ini"

1- Exécution avec un nom de fichier :

Code :

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

1
2
3
 
   Dim f As New Cls_File("Fichier.ini")
        MsgBox(f.FilePath)

--> Retourne (depuis l’environnement Debug de VS) :

"C:\Documents\Visual Studio 2013\Projects\Renamer\Renamer\bin\Debug\Fichier.ini"

PS : ce qui corresponds à %AppStartUp%


A+

[BasicZX81]

Merci beaucoup Wallace1, c'est exactement ce qu'il me fallait.
L'astuce avec FileInfo est bien vu, je n'y avait pas pensé.