Question

我编写了一个将数据从Excel电子表格上传到表单的功能。我的电脑测试成功。我将我的vb.net代码迁移到开发服务器，现在我获得了一个有根路径的路径消息。

我的代码适用于其他人编写的现有代码。我不太清楚它到底在做什么，因为没有评论，而且我对编程很陌生。

我的想法是代码的第一部分正在寻找用户提交的文件的路径（IF部分）而代码的第二部分（在ELSE部分中）是 - 实际上并不确定代码似乎多余。我知道服务器上有一个临时文件夹。了解代码的作用会很有帮助，这样我就可以找出放置服务器路径的位置。有人可以对代码发表评论以帮助我理解吗？

If WebPath.Contains("localhost") Then
    FilePath = Path.Combine("c:\open", FileName)
    FileUpload1.SaveAs(FilePath)
Else
    Dim FolderPath As String = ConfigurationManager.AppSettings("FolderPath")
    FilePath = FolderPath & FileName
    FileUpload1.SaveAs(FilePath)
End If

Answer 1

根据我的理解：

' localhost usually refers to development environment
If WebPath.Contains("localhost") Then
    FilePath = Path.Combine("c:\open", FileName)
    FileUpload1.SaveAs(FilePath)
' So if it is not localhost, the code will goes here
Else
    ' The code is trying to grab the FolderPath value from the .config file
    ' For example: web.config file
    ' Here is the example of how it may looks inside the web.config file
    ' <?xml version="1.0" encoding="utf-8" ?>
    '  <configuration>
    '   <appSettings>
    '    <add key="FolderPath" value="filepath"/>
    '   </appSettings>
    '  </configuration>
    ' So, if you want to change the location, change the "filepath" value in the web.config file
    Dim FolderPath As String = ConfigurationManager.AppSettings("FolderPath")
    ' Also use Path.Combine over here
    FilePath = Path.Combine(FolderPath,FileName)
    FileUpload1.SaveAs(FilePath)
End If

Answer 2

两个输入，WebPath和FileName

WebPath在其中的任何地方都包含“localhost”一词，然后将文件保存到“c：\ open \”

否则从应用配置设置“FolderPath”中读取文件夹名称并将文件存储在

中

真的，只需用调试器逐步执行代码，看看有什么用

SaveAs方法配置为需要根路径 - 帮助理解现有代码块

2 个答案: