grid与tin互转换问题？

<P>运用ae+vb，我要实现tin和grid之间的互转换，现在处于试验阶段，试图通过命令按钮的单击事件实现。但是运行的时候，总是出现“method or data not found”错误，不知道为啥？请大家帮忙！</P>
<P>Private Sub Command2_Click()<BR>'sw_usa_grid<BR>Dim m_pdir As String<BR>Dim m_Pname As String<BR>m_pdir = "e:\data"<BR>m_Pname = "sw_usa_grid"<BR>Dim m_Ptinname As String<BR>m_Ptinname = "r2tin"<BR>Dim m_Prwsf As IWorkspaceFactory<BR>m_Prwsf = New RasterWorkspaceFactory<BR>Dim m_Prws As IRasterWorkspace<BR>m_Prws = m_Prwsf.OpenFromFile(m_pdir, 0)<BR>Dim m_Prds As IRasterDataset<BR>m_Prds = New RasterDataset<BR>m_Prds = m_Prws.OpenRasterDataset(m_Pname)<BR>Dim m_Ptin As ITinEdit<BR>m_Ptin = New Tin<BR>Dim m_Prbc As IRasterBandCollection<BR>m_Prbc = m_Prds<BR>Dim m_Pr As IRaster<BR>m_Pr = m_Prbc.Item(0)<BR>Dim m_pextent As IEnvelope<BR>m_pextent = m_Pr.Extent<BR>Dim m_Ptinuname As String<BR>m_Ptinuname = "tin_uname"<BR>m_Ptin = tinUtil.RasterToTINConversion(m_Prds, 0, 1, m_Ptinname, m_Ptinuname, True, 100)<BR>End Sub</P>

<P>能不能指出错误的位置？</P>

<P>调试之后，在这句代码处m_Prwsf = New RasterWorkspaceFactory提示“method or data not found”错误。</P>
<P>请大家帮忙！<BR></P>

<P>set m_Prwsf = New RasterWorkspaceFactory</P>
<P>这个m_pdir = "e:\data"是否还要改m_pdir = "e:\data\"  ?</P>

<P>gis，后面的"/"也需要吗？</P>