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

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