Bonjour,

J'essaie de faire fonctionner un projet Access avec l'ActiveX MapWinGIS.
J'ai installé MapWinGIS.ocx et j'ai pu l'enregistrer correctement dans la base de registre.
Le problème c'est que lorsque je veut ajouter un shapefile, il ne le reconnait pas comme tel et me met "This seems to be no Shapefile! Exiting!"

J'ai pu tester avec plusieurs shapefiles sans succès.
Pourtant, la ligne de code prend en compte les fichiers qui ont simplement une extension "SHP", ce qui est mon cas.

Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
If .Show = True Then
shpFilePathAndName = .SelectedItems(1) 'this is the complete path of the selected shapefile shpFileName = vItem
Set fileObj = fileSysObj.GetFile(.SelectedItems(1)) 'Set fileObj = fileSysObj.GetFile(vItem)
If Left(fileObj.Type, 3) <> "SHP" Then 'checking filetype to assure its a shapefile (just very basic)
MsgBox "This seems to be no Shapefile! Exiting!", vbExclamation, "Boreholes Map"
GoTo exitCleanup
End If
Voici en lien le projet Access:
http://svn.mapwindow.org/svnroot/Sam...2007_Borehole/

Si vous avez une idée?