[Clos] Plantage à l'ouverture de la fenêtre de sélection d'un fichier ou d'un répertoire

[erumal]

Bonjour. Après une réinstallation complète de mon système d'exploitation Windows 10, je ne peux plus utiliser gesfine.
Après le démarrage du programme, je clique sur selection d'une base de données existante. Je clique ensuite sur les 3 petit points pour aller chercher mon fichier mais a chaque fois j'ai le message d'erreur suivant: GesFine a cessé de fonctionner.
Si je choisi déboguer, j'ai l'erreur suivante: une exception Microsoft.NET Framework non géré s'est produite dans gesfine.exe (8896)

[Jacques Leblond]

Bonjour,

As tu essayé de créer une base de données vierge (en sauvegardant au préalable ton fichier Gesdata.db actuel) ?
Quelle version de GesFine utilises-tu ?

[erumal]

bonjour. Si je cree une nouvelle base dans le repertoire par defaut, cela fonctionne.
Par contre impossible de changer le repertoire de destination. Gestfine cesse de fonctionner des que je clique sur les 3 petits points.
J'ai le meme probleme dans tous les menus qui utilise le gestionnaire de fichier (bouton avec les 3 petits points)

[erumal]

j'utise la version GesFine-v6.0.68.5904-setup

[Jacques Leblond]

J'ouvre la boite de dialogue du formulaire de sélection d'un répertoire en affectant par défaut le répertoire spécial "Environment.SpecialFolder.Desktop" qui correspond à l'arborescence du bureau sous laquelle on trouve tout, son PC, le réseau, etc...
Il est possible que ce répertoire n'est pas été défini (ou modifié par une application), ce qui provoque le plantage.

Vois tu quelque chose qui aurait pu modifier cela lors de ton installation ?

[erumal]

Peut être Visual studio community 2015. Sinon, j'ai aussi money 2005 ?

[Jacques Leblond]

Si tu as VisualStudio, peux tu regarder dans l'un de tes projets ce que te retourne : Environment.SpecialFolder.Desktop
Est ce que cela lève une erreur ?

[erumal]

J'ai crée un projet avec un bouton. ( je programme en vb.net)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim chemin As String = Environment.SpecialFolder.Desktop
MsgBox(chemin)
End Sub

J'ai '0' en retour. pas d'erreur.
Je dois peut être désinstaller Visual studio ?

[Jacques Leblond]

Essaye plutôt :
Dim chemin As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

EDIT : Ne désinstalle rien pour l'instant, il faut déjà essayer de comprendre l'origine du problème

[erumal]

J'ai 'd:\desktop' en retour

[Jacques Leblond]

Bon alors le problème ne semble pas venir de là.

Est ce que cela plante alors que Money est lancé ? J'ai déjà eu des retours d'incompatibilité à utiliser Money en même temps que GesFine.

[Jacques Leblond]

Bon je reviens sur notre test, il y a aussi l'utilisation de My.Computer.FileSystem.SpecialDirectories.MyDocuments qui pourrait être à l'origine du problème

Voici un bout de code très proche de celui de GesFine, peux tu l'essayer :

Code : Tout sélectionner

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim oFolderBrowserDialog As New FolderBrowserDialog
    With oFolderBrowserDialog
        .Description = "Essai"
        .RootFolder = Environment.SpecialFolder.Desktop
        .ShowNewFolderButton = True
        .SelectedPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    End With
End Sub

[erumal]

Non. C'est ma femme qui utilise money. Moi je prefere de loin votre logiciel.

[erumal]

Ok. Lorsque je clique sur le bouton avec votre code. Rien ne se passe.

[Jacques Leblond]

Ah oui j'oublie d'ouvrir la fenêtre :

Code : Tout sélectionner

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim oFolderBrowserDialog As New FolderBrowserDialog
    With oFolderBrowserDialog
        .Description = "Essai"
        .RootFolder = Environment.SpecialFolder.Desktop
        .ShowNewFolderButton = True
        .SelectedPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    End With
    If oFolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Application.DoEvents()
         Console.Writeline(oFolderBrowserDialog.SelectedPath)
    End If
End Sub

[erumal]

Le formulaire de gestion de fichier s'ouvre mais ensuite j'ai une erreur a la ligne:
If oFolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

Erreur:
Une exception non gérée du type 'System.NullReferenceException' s'est produite dans Microsoft.VisualBasic.dll

[Jacques Leblond]

oFolderBrowserDialog.ShowDialog est la méthode qui ouvre le formulaire, du coup je ne vois pas vraiment l'objet qui est "null".

Si à la place de :

Code : Tout sélectionner

    If oFolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Application.DoEvents()
         Console.Writeline(oFolderBrowserDialog.SelectedPath)
    End If

tu mets juste :

Code : Tout sélectionner

oFolderBrowserDialog.ShowDialog
Console.Writeline(oFolderBrowserDialog.SelectedPath)

EDIT : si tu valides le formulaire après sélection d'un répertoire, ce répertoire est-il écrit dans la console ?

[erumal]

J'ai bien la boite de dialogue "rechercher un dossier" qui s'ouvre et je peux naviguer dans mes dossiers.

[Jacques Leblond]

Ok donc aucune ligne ne soulève d'erreur ?
Quand tu sélectionnes un répertoire et que tu valides, la propriété oFolderBrowserDialog.SelectedPath est correctement définie ?

[erumal]

bonjour,
lorsque je selectionne un repertoire dans la boite de dialogue, j'ai bien le chemin du repertoire en retour.

J'ai testé Gesfine sur une tablette avec windows 10 sans visual studio et tous fonctionne normalement.
Ce doit etre un problême avec mon PC. Je crois que je vais essayer de deinstaller visual studio et de reinstaller Gesfine pour voir si ça fonctionne.