2

感谢您对此的帮助。

我有一个 ftp 站点和管理站点中文件的网络工具 (vb.net)。

ftp 站点和工具使用 AD 组（内联网）来检查权限。

有些目录受到限制，有些则不受限制。

在我使用的下载工具上：

    My.Computer.Network.DownloadFile(urlPath, userProfileLocal & fileNameLab.Value, domainNameHid.Value, "", True, 60000, True, FileIO.UICancelOption.DoNothing)

urlPath可能等于ftp://ftp.net/foo/bar/myfile.zip

对于userProfileLocal我正在尝试使用Dim userProfileLocal As String = Environment.GetEnvironmentVariable("USERPROFILE") & "\documents"

fileNameLab.Value预填充在隐藏输入中，是文件名

domainNameHid.Value已预先填充，看起来像DOMAIN\jimmmy

因为我希望使用 AD，所以我将密码值保留为空白。

我发现这个说我应该使用 ICredentials 代替用户名和密码，但是我在实现ICredentials部分时遇到了问题，甚至不确定这是否正确。

其余的我认为是占了。

我不断收到错误Access to the path 'C:\Windows\system32\config\systemprofile' is denied.

首先，这不是我要走的路。我希望这GetEnvironmentVariable("USERPROFILE") & "\documents"会创建文档文件夹的路径......有没有更好的方法来做到这一点？为什么不能只提示浏览到某个位置或使用默认位置？

其次，...嗯，第二个与我没有权限下载到我自己的磁盘有关。但是如果第一个可以解决，那么我认为这也可以。

我认为我的 AD 要求正在搞砸应该是一项简单任务的工作。有人可以为 ICredentials 的示例指出正确的方向（如果这是我需要的），或者让我知道我在这里做错了什么？

4

1 回答 1

0

我只是想回应一下，让那些正在寻找的人知道我找到了答案。

我最终使用了以下代码，而不是上面使用的代码：

    Dim mydocsdir = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
            Response.AppendHeader("Content-Disposition", "attachment; filename=" & fileNameLab.Value)
            Response.Clear()
            Response.WriteFile(Path.Combine(mydocsdir, fileNameLab.Value))

这就像一个魅力。

我需要特别感谢Darin Dimitrov，他在另一篇文章中提供了答案。他的回答实际上是我认为可能的简单答案......但我的 VB.Net 经验虽然现在很少，但仍在增长。

于 2012-08-15T17:27:25.003 回答