Module variable Public repertoire As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\lecteur média\" Public repertoireavis As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\lecteur média\" Public repertoirebacup As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\lecteur média backup\" Public passftp As String = "" Public configbackup As String = repertoirebacup & "\configuration\" Public dossérie As String = repertoire & "\Séries\" Public fichierconfigbackup As String = configbackup & "\configuration.txt" Public utilitairetemps As String = configbackup & "\utilitaire.txt" Public lastedbackup As String = configbackup & "\lasted backup.txt" Public mesbacup As String = repertoirebacup & "\mes backup\" Public settings1 As String = repertoire & "settings1.txt" Public settings2 As String = repertoire & "settings2.txt" Public settings3 As String = repertoire & "settings3.txt" Public notification As String = repertoire & "notification.txt" Public théme As String = repertoire & "théme.txt" Public historique As String = repertoire & "historique.txt" Public lançer As String = repertoire & "lançer.txt" Public film As String = repertoire & "\film\" Public filmhc As String = film & "film.txt" Public misajours As String = repertoireavis & "\mis a jours\" Public Favoris1 As String = repertoire & "\Favoris\" Public Favoris2 As String = repertoire & "favoris.txt" Public setting As String = film & "setting.txt" Public settings4 As String = film & "setting 2.txt" Public settings5 As String = film & "setting 3.txt" Public musique As String = repertoire & "\musique\" Public musiquepar As String = musique & "paraméttre.txt" Public startpage As String = repertoire & "start page.txt" Public discté As String = repertoire & "\dictée\" Public radio As String = repertoire & "\radio\" Public like2 As String = film & "\like\" Public marqueur As String = repertoire & "\Marqueur\" Public misa As String = misajours & "téléchargment.txt" Public dev As String = repertoire & "dev.txt" Public portable As String = repertoire & "\portable\" Public compte As String = repertoire & "\compte\" Public ipserver = "ftp://yoann@192.168.1.37:21/" Public ipsite = "http://lecteur.lecteur-media.fr:81/" Public compteco As String = compte & "compte.txt" Public comtpeco2 As String = compte & "connecter.txt" Public localhost As String = compte & "localhost.txt" Public settingcompte As String = cozip & "/setting.txt" Public date1 As String = compte & "date.txt" Public php As String = compte & "index.php" Public dictéenligne As String = discté & "\en Dicté en ligne\" Public dictétemp As String = repertoire & "dicté temp.txt" Public cozip As String = compte & "\co\" Public imgmusique As String = repertoire & "img.txt" Public ettt As String = repertoire & "éditeur de texte.txt" Public marqueurtemp As String = repertoire & "marqueur temps.txt" Public couleur As String = repertoire & "color.txt" Public dosparamètres As String = repertoire & "\paramètres\" Public fichiermisauto As String = dosparamètres & "mis a jour automatique.txt" Public interface1 As String = dosparamètres & "interface.txt" Public servertemps As Integer = 0 Public servertemps2 As Integer = 0 Public testdev2 As Integer = 0 Public misdlok As Integer = 0 Public misdlno As Integer = 0 Public dosentère As String = misajours & "\version présédante\" Public betavr As String = "(bêta 1.9.6 - 1)" Public vr As String = "1.9.5" Public vr2 As String = betavr Public lecteurnom As String = "Lecteur média (bêta 1.9.6 - 1)" Public exporterconfig As String = "" Public importconfig As String = "" Public beta As String = 1 Public lisb5 As Integer = 0 Public lisb6 As Integer = 0 Public lisb7 As Integer = 0 Public utilitairestemp As String = configbackup & "\utilitaire.txt" Public dosplaylist As String = repertoire & "\playlist\" Public fichierinstall As String = repertoire & "\fichierinstall.txt" Public playlistnom As String = "" Public payliststorelit As Integer = 0 Public dosprofils As String = repertoireavis & "profils\" Public profils As String = repertoireavis & "profils.txt" Public nomprofilsdef As Integer = 0 Public nomprofils As String = "" Public coutprofils As Integer = 0 Public doscontroleparantal As String = repertoire & "\Contrôle parental\" Public mailcontroleparantal As String = doscontroleparantal & "\mail.txt" Public passcontroleparantal As String = doscontroleparantal & "\pass.txt" Public optioncontrleparantal As String = doscontroleparantal & "\option.txt" Public vrdev As Integer = 0 Public fichiermisajourdev As String = dosparamètres & "\canal.txt" Public canalmis As Integer = 0 Public vrportable As Integer = 0 Public testazazazaza As Integer = 0 Public BCstart As Integer = 0 Public dostheme As String = repertoire & "\Théme\" Public themeselect As String = dostheme & "\Théme select.txt" Public dosier As String = dosparamètres & "/temps2/" Public tempup As String = dosier & "\temp up\" Public opentchat As Integer = 0 End Module