My.Application.Info.DirectoryPath
Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load MsgBox(My.Application.Info.DirectoryPath) End End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMy.Application.Info.DirectoryPath
Imports Scripting Function findLettreCLe() Dim FSO As New FileSystemObject Dim lecteur As Drive Dim lettreCle As String = "" For Each lecteur In FSO.Drives If lecteur.DriveLetter <> "A" Then 'le lecteur est-it amovible ? If lecteur.DriveType = DriveTypeConst.Removable Then 'le lecteur est-it prêt ? If lecteur.IsReady And lecteur.VolumeName = "nomclé" Then lettreCle = lecteur.DriveLetter Return lettreCle End If End If End If Next End Function
et puis des contraintes dans mon entreprises m'oblige à faire ce procédé....