Problème Application.StartupPath & Conversion en type "Long"

Version imprimable

30/05/2012, 18h22
CLeBeR

Problème Application.StartupPath & Conversion en type "Long"

Salut,
je suis actuellement ne train de développer une application qui est censée être installée uniquement dans "C:\Program Files\Nom De Mon Programme, mais même en changeant le répertoire d'installation par défaut de mon projet de déploiement visual studio, sur mon PC Windows7 64 Bit le programme veut s'installer dans "C:\Program Files X86\Nom De Mon Programme".
Je dois donc changer mon code afin qu'il n'aille pas chercher et écrire des données dans "C:\Program Files\Nom De Mon Programme". J'ai donc pensé à ce que le programme "sache tout seul" où il se trouve donc j'utilise la fonction "Application.StartupPath" pour qu'il écrive et lise dans son propre répertoire. Seulement lorsqu'il veut écrire, une erreur se présente :

Citation:

Impossible de convertir la chaine en valeur de type "long".

Voici un un screenshot de visual studio.
http://data.imagup.com/11/1153060659.JPG
30/05/2012, 18h31
meziantou

Tu essayes de faire une division entre 2 chaines de caractères (opérateur \).
Pour concaténer 2 chaines de caractères il faut utiliser l'opérateur &.
Cependant pour concaténer deux chemins il vaut mieux utiliser Path.Combine

Salut,
si je met & et bien le fichier se crée bien mais dans le répertoire antérieur à mon application et le nom de fichier est le nom du répertoire actuel + par exemple ultimate.

Donc si je met mon programme dans "C:\Program Files\MonDossierDuProgramme" et que je possède Windows7 ultimate, le fichier sera crée dans Program File et se nomera "MonDossierDuProgrammeUltimate"

Édite : Je viens d'utiliser la fonction combine et ça marche nickel ! Seulement je me demande si il n'y a pas moyen de réduire et améliorer mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   Dim RepertoireDuExeNonCompris As String = Application.StartupPath
    Dim PathRepertoireExe As String = RepertoireDuExeNonCompris
 
    Dim streamwriter As New StreamWriter(combinationUltimate)
    Dim combinationUltimate As String = Path.Combine(PathRepertoireExe, pathUltimate)
    Dim pathUltimate As String = "Ultimate.txt"
 
 
    Private Sub VerificationVersionDeWindows()
        Dim VersionDeWindows7Ultimate As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
        Dim path2 As String = "Ultimate.txt"
 
        If VersionDeWindows7Ultimate = "Ultimate" Then
            Dim EcritureVersionUltimate As New StreamWriter(combinationUltimate)
        Else
            Dim VersionDeWindows7Professional As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", "")
           '......................

30/05/2012, 19h59
meziantou

C'est normal tu fais "C:\Program Files\MonDossierDuProgramme" & "ultimate.txt" ce qui donne naturellement "C:\Program Files\MonDossierDuProgrammeultimate.txt". Pour obtenir ce que tu veux il faut ajouter un backslash

Code:

"C:\Program Files\MonDossierDuProgramme" & "\ultimate.txt"

ou mieux utiliser Path.Combine

Code:

Path.Combine("C:\Program Files\MonDossierDuProgramme", "ultimate.txt")
30/05/2012, 20h04
CLeBeR

Ah bah tu viens de répondre quand j'étais en train d'éditer mon message ^^ Du coup je vais lire ce que tu m'a écrit :)

Edit
Re,
Voilà je viens d'essayer avec un \ et ça fonctionne nickel et le code ne fait que 1 ligne pour écrire mon fichier !!! Merci infiniment :ccool:
Par contre juste pour mon information, pourquoi utiliser path combine, quel est la différence ?
30/05/2012, 20h14
meziantou

Path.Combine utilise le bon séparateur quelque soit le système (\ pour Windows). De plus la méthode vérifie s'il faut ajouter le séparateur

Code:

Path.Combine("C:\Program Files\MonDossierDuProgramme", "\ultimate.txt")

Dans ce cas une simple concaténation sera faite.
30/05/2012, 21h29
CLeBeR

J'ai finalement utilisé le & "\..." car je dois aussi créer des planifications de tâches donc...
Merci en tout cas mon programme marche nickel, de plus tu as fais d'une pierre deux coups car du coup, mon autre post est résolu ! http://www.developpez.net/forums/d12...p/#post6707457

Bye merci encore ! :ccool: