Soyez le premier à donner votre avis sur cette source.
Vue 4 933 fois - Téléchargée 543 fois
Public Sub CreerDate(MonFichier As String) ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ' Créer le fichier -> MiseAJour.ini ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Dim Chaine As Variant Dim Y As Integer Dim Ref As String If Dir(MonFichier) = "" Then MsgBox "Ce programme n'existe pas", , TitreER End End If Ref = ExtractionInfo(MonFichier) ', Creer, Acces, Ecrit Chaine = Split(Ref, ",") For Y = LBound(Chaine) To UBound(Chaine): Next Open APP_PATH & "MiseAJour.ini" For Output As #1 Print #1, Chaine(2) ' Sa Date Close #1 End Sub
En effet j'ai VB5 et pas le 6...
J'accepte volontiers votre version, peut-être y verrais je mon erreur š! Merci-
Je suis en train de le ré-écrire pour moi. Etes-vous intéressé d'en recevoir une copie ?
Théoriquement c'est le soft qui lance ainsi l'utilitaire:
CmdMiseAJOur_Click()
' sans api
Dim EXE As String
EXE = App.Path & "\MiseAJour.exe " & Chr(34) & "Ogame" & Chr(34)
Shell (EXE)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.