1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| <%@language=VBSCRIPT%>
<%
Function ConvMWXtoMLF(FileName As String, GroupName As String,LayerName As String, Success As Boolean)
{
Crée un nouvel objet MWF
Dim MWFDoc As New MapWindowFile
Déclare les noms des objets MLF et MWX
Dim MLFFile As String
Dim MWXFile As String
On Error GoTo MLFError
Essaie de lire le contenu du MWX
MWXFile = "C:\DATdata\" + FileName + ".mwx"
MWFDoc.ReadFromMwx MWXFile
Essaie d'écrire dans le fichier MLF
MLFFile = "C:\DATdata\" + FileName + ".mlf"
MWFDoc.WriteToMlf MLFFile, GroupName, LayerName
Success = True
Exit Function
Erreur
MLFError:
Success = False
End Function
}
%> |
Partager