Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim chemin As String Dim cheminexe As String Dim cheminbin As String Dim cheminresources As String Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click cheminexe = Application.StartupPath cheminbin = Mid(cheminexe, InStrRev(cheminexe, "") + 1) 'on extrait le dernier nom de la chaine cheminresources = cheminexe.Replace("" & cheminbin, "") 'on supprime le dernier nom de la chaine cheminresources = Mid(cheminexe, InStrRev(cheminresources, "") + 1) 'on extrait le dernier nom de la chaine chemin = cheminexe.Replace("" & cheminresources, "") 'on supprime le dernier nom de la chaine chemin = chemin & "\Resources\monicone.ico" FileCopy(chemin, "chemin destination\moniconeico") End Sub
Dim path As String = Application.StartupPath & "\..\..\Resources" & "\monicone.ico" FileCopy(path, "chemin destination\monicone.ico")