Discussion :

[daladim]

Salut à tous, (désolé, ma question est un peu longue...)

je suis en train de programmer un explorateur de fichiers alternatif (un peu comme celui de Windows, mais avec, entre autres, des onglets)

J'ai donc besoin d'une variable listant tous les dossiers, fichiers, etc. affichés par la fenêtre. Cette variable s'appelle objExpl. Elle est déclarée comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Dans un module :
Public objExpl(255) As Explorateur

Public Type Explorateur
    Path As String
    Titre As String
    
    'Panneau de gauche, listant l'arborescence des dossiers
    ContenuDossiers(1024) As String
    CoordDossiers(1024) As Long     'Coordonnées des dossiers, pour la sélection
    dossierSelectionne As Long          'Dossier sélectionné
    
    nomFichiers(4096) As String
    extensionFichiers(4096) As String
    tailleFichiers(4096) As Single
   
    historique(255) As String
End Type

J'ai simplifié un peu, en fait, le type Explorateur contient encore quelques autres variables (Long ou Single), mais ca ne change rien au problème.

Le but de objExpl est de pouvoir simplement gérer les onglets. Par exemple, je peux avoir objExpl(OngletEnCours).contenuDossiers(0), c'est le premier dossier affiché dans l'onglet en cours.

Mon problème est que quand je lance ce programme, VB me dit "Erreur de compilation : une donnée fixe ou statique ne peut dépasser 64 Ko" , et il sélectionne la ligne d'où provient l'erreur : il s'agit d'un tableau du type Explorateur.

Je comprend donc que mon type Explorateur est trop gros. Cependant, j'ai vraiment besoin de tous ces tableaux. Comment faire pour contourner l'erreur de compilation ?
(ou alors comment alléger le type Explorateur, à mon avis il y a beaucoup de subtilités de VB que je ne connais pas et qui pourraient m'être bien utiles)

Merci beaucoup

[ouskel'n'or]

Je n'ai pas de solution mais j'ai lu ton TPE. Ce n'est pas le sujet mais tu ne parles pas de la future installation d'un centre de recherche international en France. Tu as des renseignements là-dessus

Merci

A+

[jmfmarques]

Pourquoi, dans ce cas, ne pas faire ton outil en te servant des contrôles Drivelist, Dirlist et Filelist conjugués avec les onglets que tu veux et les labels que tu veux ...
Il me semble que ce serait beaucoup plus simple, pour le même résultat ...

[Catbull]

Tu ne peux malheureusement pas passer par un Type. Un type n'est pas un pointeur sur un objet. La taille de la variable est donc initimement liée aux types qui l'a compose.

Voici la taille de ton type :

Path As String '4 octets
Titre As String '4 octets
ContenuDossiers(1024) '1025 * 4 Octets
CoordDossiers(1024) As Long '1025 * 4 Octets
dossierSelectionne As Long '4 octets
nomFichiers(4096) As String '4097 * 4 Octets
extensionFichiers(4096) As String '4097 * 4 Octets
tailleFichiers(4096) As Single '4097 * 4 Octets
historique(255) As String '256 * 4 Octets

Une solution consisterait à passer non par un type mais un module de classe. Ainsi tu pointerais sur une adresse qui pointerait sur d'autres adresses et tu éviteras ce dépassement.

[daladim]

Salut tout le monde, merci pour vos réponses.

jmfmarques, merci pour ta réponse, mais je ne pense pas qu'elle me convienne : j'aurais besoin d'avoir la liste des fichiers, de leur taille... pour pouvoir les classer par type, par taille, par date, etc...
Catbull, merci aussi. Je ne connais pas les modules de classe, mais je vais apprendre et j'essayerai ce que tu me proposes.

Merci beaucoup
(Je ne mets pas le tag résolu, si jamais quelqu'un a d'autres solutions)

[jmfmarques]

jmfmarques, merci pour ta réponse, mais je ne pense pas qu'elle me convienne : j'aurais besoin d'avoir la liste des fichiers, de leur taille... pour pouvoir les classer par type, par taille, par date, etc...

OUI ? Et alors ?
Il s'agit là d'un aspect que tu peux gérer, ma foi... A condition que tu saches faire tout le reste (extraire par API et gérer). Et je pense que tu sais faire tout celà, sinon tu ne te lancerais pas dans une telle entreprise ! Le contraire voudrait dire que tu attends que l'on fasse tout, pas à pas,....