3 réponses
Note : Il faut que les RunTimes de VB 5.0 soit installer sur ta machine.
puis ti doit avoir un truc du genre :
repdest = "c:windowsBureau" ' Win9x
repdest = "C:Documents and SettingsAdministrateurBureau" ' Win2k et nt
NomShort = "HalfLife"
FileDest = "c:halflifehalf.exe"
Call Fcreate(repdest, NomShort, FileDest, " -par " + Text1)
puis ti doit avoir un truc du genre :
repdest = "c:windowsBureau" ' Win9x
repdest = "C:Documents and SettingsAdministrateurBureau" ' Win2k et nt
NomShort = "HalfLife"
FileDest = "c:halflifehalf.exe"
Call Fcreate(repdest, NomShort, FileDest, " -par " + Text1)
OUi c' est bon, j' ai bien fait mes variables, mais voici le probleme :
Quand je compile j'ai cette erreur :
Public Declare Function FCreateShellLink Lib "VB5stkit.dll" (By Val lpstrFolderName As String,By Val lpstrLinkName As String,By Val lpstrLinkPath As String,By Val lpstrLinkArgs As String) As long
Sur cette ligne ça me dit : compile error syntax error ...
(:-(((((((
voici mon code :
Private Sub cmd_shortcutcreate_Click()
Dim repdest, a, b, c, d, e, NomShort, FileDest
repdest = txtrepertoire.Text
NomShort = txtshortcutna.Text
a = "-game " & txtgame.Text
b = "-port " & txtport.Text
c = "+maxplayer " & txtmaxplayer.Text
d = "+map " & txtmap.Text
e = a & b & c & d
FileDest = "server_config.rar " & e
Public Declare Function FCreateShellLink Lib "VB5stkit.dll" (By Val lpstrFolderName As String, By Val lpstrLinkName As String, By Val lpstrLinkPath As String, By Val lpstrLinkArgs As String) As long
End Function
Call Fcreate(repdest, NomShort, FileDest, e)
End Sub
où txt sont des textbox...
Quand je compile j'ai cette erreur :
Public Declare Function FCreateShellLink Lib "VB5stkit.dll" (By Val lpstrFolderName As String,By Val lpstrLinkName As String,By Val lpstrLinkPath As String,By Val lpstrLinkArgs As String) As long
Sur cette ligne ça me dit : compile error syntax error ...
(:-(((((((
voici mon code :
Private Sub cmd_shortcutcreate_Click()
Dim repdest, a, b, c, d, e, NomShort, FileDest
repdest = txtrepertoire.Text
NomShort = txtshortcutna.Text
a = "-game " & txtgame.Text
b = "-port " & txtport.Text
c = "+maxplayer " & txtmaxplayer.Text
d = "+map " & txtmap.Text
e = a & b & c & d
FileDest = "server_config.rar " & e
Public Declare Function FCreateShellLink Lib "VB5stkit.dll" (By Val lpstrFolderName As String, By Val lpstrLinkName As String, By Val lpstrLinkPath As String, By Val lpstrLinkArgs As String) As long
End Function
Call Fcreate(repdest, NomShort, FileDest, e)
End Sub
où txt sont des textbox...
J'ai coller ton code, reprend cette ligne :
Public Declare Function FCreateShellLink Lib "VB5stkit.dll" (ByVal lpstrFolderName As String,ByVal lpstrLinkName As String,ByVal lpstrLinkPath As String,ByVal lpstrLinkArgs As String) As long
Pour info : By Val n'est pas valide, c'est la fonction ByVal qui est valide.
L'autre erreur que tu peux avoir, c'est que la librairie n'est pas dispo (manque vb5stkit.dll dans le rep de zindoz)
Mail en direct si t'as encore des problemes
a+
Public Declare Function FCreateShellLink Lib "VB5stkit.dll" (ByVal lpstrFolderName As String,ByVal lpstrLinkName As String,ByVal lpstrLinkPath As String,ByVal lpstrLinkArgs As String) As long
Pour info : By Val n'est pas valide, c'est la fonction ByVal qui est valide.
L'autre erreur que tu peux avoir, c'est que la librairie n'est pas dispo (manque vb5stkit.dll dans le rep de zindoz)
Mail en direct si t'as encore des problemes
a+
