Application.UserAppDataPathte donne le répertoire utilisé par l'application pour y stocker les fichiers de données du projet . Et ces fichiers sont modifiables sans souci par l'application . Par contre ces fichiers ne sont pas pris en compte lors de la création d'un Setup pour installer l'application sur un autre PC .
Pour les entreprises
Un nombre illimité d’utilisateurs au sein d’une entreprise peut utiliser Visual Studio Community dans les cas suivants : dans un environnement d’apprentissage, pour effectuer des recherches universitaires, ou pour contribuer à des projets open source.
Pour tous ces cas d’utilisation :
Dans les organisations non commerciales, jusqu’à 5 utilisateurs peuvent utiliser Visual Studio Community.
Dans les entreprises commerciales (c’est-à-dire celles qui possèdent plus de 250 PC ou totalisent un chiffre d’affaires annuel de plus de 1 million de dollars (USD)), Visual Studio Community ne peut être utilisé en dehors des cas mentionnés ci-dessus (projets open source, recherche universitaire, environnement d’apprentissage).
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDe plus, mon travail est déjà distribué à mes collègues et le code est accessible à leur demande.Ça n'en fait pas un projet open source puisqu'il est destiné à tes collègues.
system.IO.DirectoryNotFoundExeption : impossible de trouver une partie du chemin d'accès 'C:\...\DOSSIERAPPLI\bin\Debug\Fichier\nomdefichier.csv
FileOpen(1, C:\...\DOSSIERAPPLI\Fichier\nomdefichier.csv, OpenMode.Input)
system.IO.DirectoryNotFoundExeption : impossible de trouver une partie du chemin d'accès 'C:\...\DOSSIERAPPLI\bin\Debug\Fichier\nomdefichier.csv
FileOpenc'est du code VB6 .
FileOpenne sera pas reconnu par VB Net
Dim j As StreamReader = New StreamReader(FichierEleves, Encoding.Default) infoEleve = j.ReadLine Do Until infoEleve Is Nothing incEleve = incEleve + 1 infoEleve = Replace(infoEleve, ",", " ") 'Valuer le tableau de structure vEleves Dim decodeInfoEleve As String() = Split(infoEleve, ";") Dim i As Integer = 1 For i = 1 To taille_vEleve 'vEleves.GetUpperBound(1) 'taille_vEleve vEleves(incEleve, i) = Replace(decodeInfoEleve(i - 1), ",", " ") ' -1 car split donne une liste commençant à 0 Next infoEleve = j.ReadLine Loop j.Close()
Démarrer
system.IO.DirectoryNotFoundExeption : impossible de trouver une partie du chemin d'accès 'C:\...\DOSSIERAPPLI\bin\Debug\Fichier\FichierEleves.csv
bin\debugpar défaut.
Dim j As StreamReader = New StreamReader(FichierEleves, Encoding.Default)deviendra
Dim StReader As StreamReader = New StreamReader(FichierEleves, Encoding.Default)
j.close()devient
StReader .Close()
Dim i As Integer = 1 For i = 1 To taille_vEleve 'vEleves.GetUpperBound(1) 'taille_vEleve vEleves(incEleve, i) = Replace(decodeInfoEleve(i - 1), ",", " ") ' -1 car split donne une liste commençant à 0 Next
For i = 0 To taille_vEleve - 1 ' taille_vEleve vEleves(i) = Replace(decodeInfoEleve(i), ",", " ") Next
incEleve = incEleve + 1 infoEleve = Replace(infoEleve, ",", " ")
system.IO.DirectoryNotFoundExeption : impossible de trouver une partie du chemin d'accès 'C:\...\DOSSIERAPPLI\bin\Debug\Fichier\FichierEleves.csv
Dim j As StreamReader = New StreamReader(FichierEleves, Encoding.Default)et regarder le contenu de la variable FichierEleves
"FichierEleves.csv"alors c'est "normal" que ça plante, je t'expliquerai et il faudra comprendre pourquoi dans la version VS ça ne fonctionnait pas normalement.
"C:\...\DOSSIERAPPLI\bin\Debug\Fichier\FichierEleves.csv"alors il faut revenir en arrière dans le programme pour trouver le bloc de code qui affecte cette variable, et le poster.
FichierEleves = "C:\OUTILS\DOSSIERAPPLI\bin\Debug\Fichier\fichiereleves.csv"
Dim FichierEleves As String = Path & "Fichiers\fichiereleves.csv"
dim Path as string = "C:\DOSSIERAPPLI\
bin\debug
DOSSIERAPPLI.
DOSSIERAPLI\Fichier\
Application.StartupPathou
Application.UserAppDataPathcomme répertoire pour les données .
Dim FichierEleves As String = Application.UserAppDataPath & "Fichiers\fichiereleves.csv".
Application.UserAppDataPathet d'affecter tous tes fichiers comme ci dessus
Dim FichierEleves As String = Path & "Fichiers\fichiereleves.csv"
Application.StartupPathet
Application.UserAppDataPath
Données. Dans mon code, quand j'écrirai
Application.UserAppDataPath & "\Données", il trouvera automatiquement le dossier
Données?
Application.StartupPath, J'affecte en début de programme
Dim Path As String = Application.StartupPath
Même erreurquelle erreur?
Même erreurexplique.
et le contenu de Path est toujours le même.Est ce que cela veut dire qu'en mettant un point d'arrêt à cette ligne
Dim FichierEleves As String = Path & "Fichiers\fichiereleves.csv"le contenu de Path est
"C:\DOSSIERAPPLI\"?
Application.StartupPathet
Application.UserAppDataPath
Dim RepertoireDonnees as String = Application.UserAppDataPathexiste dans le projet .
Application.StartupPathte donne le répertoire du projet et
Application.UserAppDataPathte donne le répertoire des données du projet .
Application.StartupPathtu perds toutes tes données alors qu'avec l'autre ce n'est pas le cas ..
Dim RepertoireDonnees as String = Application.UserAppDataPathpar exemple .
Dim FichierEleves As String = Application.UserAppDataPath & "Fichiers\fichiereleves.csv"