VB.Net 2005 WinFrom 文件上传程序...
来源:互联网 发布:mac 搜索应用快捷键 编辑:程序博客网 时间:2024/06/06 15:05
VB.Net 2005 WinFrom 上传文件程序
程序代码: AppUpdater.vb
Imports System.IO
Public Class AppUpdater
Private Total As Integer = 0
Private FileNumber As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Me.ProgressBar1.Maximum = Directory.CreateDirectory(Me.TextBox1.Text).
Dim DirInfo_source As New DirectoryInfo(Me.Tbx_Source.Text)
Total = 0
FileNumber = Me.GetFilesCount(DirInfo_source)
Me.ProgressBar1.Maximum = FileNumber
Me.CopyDirector(Me.Tbx_Source.Text, Me.Tbx_Dest.Text)
End Sub
Public Sub CopyDirector(ByVal SourceDirName As String, ByVal DestdirName As String)
If (Not Directory.Exists(DestdirName)) Then
Directory.CreateDirectory(DestdirName)
File.SetAttributes(DestdirName, File.GetAttributes(SourceDirName))
End If
If (DestdirName(DestdirName.Length - 1) <> Path.DirectorySeparatorChar) Then
DestdirName = DestdirName + Path.DirectorySeparatorChar
Dim files As String() = Directory.GetFiles(SourceDirName)
For Each l_file As String In files
File.Copy(l_file, DestdirName + Path.GetFileName(l_file), True)
File.SetAttributes(DestdirName + Path.GetFileName(l_file), FileAttributes.Normal)
Total = Total + 1
Me.lblStatus.BackColor = Me.ProgressBar1.BackColor
Me.ProgressBar1.Value = Total
If (FileNumber = 0) Then
lblStatus.Text = "已完成 100%"
Else
lblStatus.Text = "已完成 " + (Math.Round(CType((100 * Total / FileNumber), System.Double), 0)).ToString() + "%"
End If
Me.Label_From.Text = l_file
Me.Label_To.Text = DestdirName + Path.GetFileName(l_file)
lblStatus.Refresh()
Label_From.Refresh()
Label_To.Refresh()
Next
Dim dirs As String() = Directory.GetDirectories(SourceDirName)
For Each dir As String In dirs
Me.Refresh()
Me.Focus()
Me.Activate()
CopyDirector(dir, DestdirName + Path.GetFileName(dir))
Next
End If
End Sub
Public Function GetFilesCount(ByVal dirInfo As System.IO.DirectoryInfo) As String
Dim totalFile As Integer = 0
totalFile += dirInfo.GetFiles().Length
For Each subdir As System.IO.DirectoryInfo In dirInfo.GetDirectories
totalFile += GetFilesCount(subdir)
Next
Return totalFile
End Function
End Class
---效果图---
- VB.Net 2005 WinFrom 文件上传程序...
- VB.NET上传文件
- winfrom 上传word文件
- VB+asp.net上传文件
- VB.net 2005 向服务器POST信息(上传文件等)
- vb.net上传文件到FTP服务器
- C#.net winfrom操作txt文件
- 一个加强的文件上传(VB.Net)
- 如何使用webservice上传文件(vb.net版本 )
- 一个加强的文件上传(VB.Net)
- [VB.NET]客户端文件上传至服务器的问题
- VB .Net 利用FTP.exe上传文件至FTP服务器
- ASP VB.NET 客户端上传文件到服务器端
- winFrom+Ftp的多文件上传及其上传进度
- ASP.NET文件上传程序的源代码
- ASP.NET文件上传程序的源代码
- ASP.NET文件上传程序的源代码
- vb上传文件
- DSP 6000程序优化(1)
- 被称为“C#圣经”的权威著作!
- 中文与 Unicode 编码的相互转换
- c#中如何打开并关闭多个子窗体的代码
- TestManager中的自动化测试脚本
- VB.Net 2005 WinFrom 文件上传程序...
- vmware无法ping通主机?
- 黑客必修DOS基础命令
- 轻松获得网通、电信、铁通IP地址分配段
- Linux 上瘾
- 关于类的初始化和赋值
- One or more files from the Emulator for Windows CE installation is missing.Please reinstall Emulator for Windows CE and try agai
- java 调用dll JNI
- linux内核网络栈代码的准备知识