地图保存的问题?

这是SuperMap Objects开发中保存地图的操作，但是为什么没有见到硬盘上保存的地图呢？代码如下


Private Sub Command4_Click() ' 地图保存 
     
    Dim strMapName As String
    Dim i As Integer
    Dim iMapCount As Integer
    Dim bUsed As Boolean
    If SuperMap1.Layers.Count = 0 Then
        MsgBox "请先在地图窗口中打开图层！"
        Exit Sub
    End If
    strMapName = InputBox$("请输入地图名称：", "保存地图")
    strMapName = Trim$(strMapName)
    If strMapName = "" Then
        MsgBox "请输入地图名称！", vbInformation
        Exit Sub
    Else
        iMapCount = Me.SuperWorkspace1.Maps.Count
        For i = 1 To iMapCount
            If strMapName = SuperWorkspace1.Maps(i) Then
                MsgBox "已经有该名称的地图，请重新输入地图名称！"
                Exit Sub
            End If
        Next
    End If
    SuperMap1.SaveMapAs strMapName
    SuperWorkspace1.Save
End Sub 没安装SuperMap的路过帮顶 up自己顶
up自己顶
没安装SuperMap的路过帮顶

补充：VB ,  控件