新規ワークスペースの作成

 2016/9/1 (木)    

Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New AccessWorkspaceFactory
'Set pWorkspaceFactory = New ShapefileWorkspaceFactory
'Set pWorkspaceFactory = New FileGDBWorkspaceFactory
'Set pWorkspaceFactory = New FileGDBScratchWorkspaceFactory
'Set pWorkspaceFactory = New InMemoryWorkspaceFactory
 
Dim pWorkspaceName As IWorkspaceName
Set pWorkspaceName = pWorkspaceFactory.Create("D:\Workspace", "Workspace", Nothing, Application.hWnd)
 
Dim pName As IName
Set pName = pWorkspaceName
 
Dim pWorkspace As IWorkspace
Set pWorkspace = pName.Open

Copyright© WINGFIELD since1981 , 2018 All Rights Reserved.