Dim r As Stringr = e.DataRow("项目编号")If ftp1.DirExists("/" & r) Then MessageBox.show("目录已经存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)Else
ftp1.makedir("/" & r)End If