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:
Voici en lien le projet Access:
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
http://svn.mapwindow.org/svnroot/Sam...2007_Borehole/
Si vous avez une idée?
Partager