将上传文件保存到指定目录

将上传文件保存到指定目录

控件：一个 TextBox 控件，name：textbox1
         一个 OpenFileDialog 控件，name：openfiledialog1

 Private Sub SaveFile() Dim strOldFilePath As String '//文件原路径 Dim strSaveAddress As String '//文件保存目录 Dim fileinfo As System.IO.FileInfo Dim strFileName As String '//文件名 Dim strNewFilePath As String '//文件新路径 Try strOldFilePath = openfiledialog1.FileName fileinfo = New System.IO.FileInfo(strOldFilePath) strFileName = fileinfo.Name '//获取文件名 '// 保存目录可以是另一台机子，但是必须是共享文件夹。 strSaveAddress = "E:/File/" '//检查文件保存目录是否以目录分割字符 / 结束,如果不是则添加之 If strSaveAddress(strSaveAddress.Length - 1) <> System.IO.Path.DirectorySeparatorChar Then strSaveAddress += System.IO.Path.DirectorySeparatorChar End If '//文件新路径 strNewFilePath = String.Concat(strSaveAddress, strFileName) '//判断上传目录是否存在，不存在就建立 If (Not Directory.Exists(strSaveAddress)) Then Directory.CreateDirectory(strSaveAddress) End If '//上传文件 System.IO.File.Copy(strOldFilePath, strNewFilePath) textbox1.Text=strNewFilePath Catch ex As Exception End Try End Sub

注解：
    '//  FileInfo：提供创建、复制、删除、移动和打开文件的实例方法，并且帮助创建 System.IO.FileStream 对象。无法继承此类。
    '//  Path：对包含文件或目录路径信息的 System.String 实例执行操作。这些操作是以跨平台的方式执行的。
    '//  DirectorySeparatorChar：提供平台特定的字符，该字符用于在反映分层文件系统组织的路径字符串中分隔目录级别。
    '//  Concat：连接 System.String 的两个指定实例。
    '//  Directory：公开用于创建、移动和枚举通过目录和子目录的静态方法。无法继承此类。
    '//  Exists：确定给定路径是否引用磁盘上的现有目录。
    '//  CreateDirectory：按 path 的指定创建所有目录和子目录。
    '//  Copy：将现有文件复制到新文件。不允许改写同名的文件。