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
---效果图---
分享到:
相关推荐
主要用于解决在使用office的dll操作后台word文件时候,在本机运行可以,但是在IIS服务器上会报一个 Retrieving the ...的问题
这个是最新版本的,上一个版本稍老了点。记得一定要在应用程序池中启用32位程序支持。否则WEBSERVICE会报错。
该款产品 是 Spire.PDFViewer for .NET 的免费版本,无需购买即可适用于个人或者商业用途。 支持浏览含多种元素的 PDF,这些元素包括超链接,字体(TrueType, Type 0, Type 1, Type 3, OpenType and CJK font),...
Web服务Asp.net调用winFrom调用
一款简单的winfrom整人小程序 安装密钥:ASDB—2SDB2S-SJE2SA-CDWCSDAD2Q2E2EQ 源码地址:https://blog.csdn.net/qq_39883903/article/details/91041098
016.VS2017_C#Winfrom实现文件读写.rar
使用asp.net来调用winfrom,涉及组件服务
是一个WinFrom窗体程序,使用输入式的一个计算器窗口.
将exe运行程序嵌入到自己的winform窗体中 - kingmax_res - iSport 注意:该方法只适用于com的exe(如word,Excel之类),.net的编的exe就不能用这用方法嵌入到窗体中。
Winfrom生成二维码源码.rar.rar
asp.net + winfrom 人员管理系统 源码 【CSDN集合 8个
Free Spire.PDFViewer for .NET 是 Spire.PDFViewer for .NET 的免费版本,使用 Free Spire.PDFViewer,程序员可以在 WinForm 程序中加载并查看 PDF 文档。浏览 PDF 时,用户可以自由设置浏览选项,比如:自动适应...
聊天 C# .NET WINFROM 聊天 C# .NET WINFROM 聊天 C# .NET WINFROM 聊天 C# .NET WINFROM 聊天 C# .NET WINFROM
winfrom 学生管理系统.rar
Winfrom生成二维码源码.rar
文件传输 C# .NET WINFROM
.net Winfrom 皮肤制作工具,可以方便的自己定义皮肤,瞬间让你的窗体变美!!!!!
一段视频,详细的说明了在打包的详细过程,我就是按照上面的讲解学会的,希望对各位有所帮助
c#写的文书模板批量打印程序demo,支持输入数据按指定排版打印,支持自动编号,支持批量导入excel数据批量打印。给需要打印文书模板的朋友提供参考。