VB.NET FileCopy语句精彩实例

开发 后端
这里介绍VB.NET FileCopy语句实现文件复制功能的程序的示例,实例分为设计界面、编写程序的初始化代码、响应[打开]按钮的单击事件、响应[另存为]按钮的单击事件四个步骤。

VB.NET FileCopy语句还是比较常用的,于是我研究了一下VB.NET FileCopy语句,在这里拿出来和大家分享一下,希望对大家有用。FileCopy语句的功能是复制一个文件 ,它的语法结构如下:

  1. FileCopy source,destination 

在FileCopy语句的语法中包括两个参数,其中soure用来表示要被复制的源文件名,而destination用来指定要复制的目的文件名。在source和destination参数中都要包含文件所在的目录或文件夹以及驱动器。

下面就是一个应用VB.NET FileCopy语句实现文件复制功能的程序的示例。

1.设计界面

向工具箱中添加一个Commondialog控件,并且把它放置到空白的窗体上。

根据程序功能的要求,在窗体上添加两个CommandButton控件,两个TextBox控件和两个Label控件。

2.编写程序的初始化代码

在程序的声明中定义两个全局变量,一个用来存放源文件路径和名字,另外一个用来存储目的文件路径和名字

  1. Dim source as string '定义一个存储源文件路径和名字的字符串变量。  
  2. Dim destination as string '定义一个存储目的文件的路径和名字的字符串变量。  

3.响应[打开]按钮的单击事件

在设计阶段双击“打开”按钮,在弹出的代码窗口中添加下列代码:

  1. Private Sub Command1_click()  
  2. CommonDialog1.showopen '显示一个对话框  
  3. source=CommonDialog1.filename '存储源文件路径和名字的字符串变量  
  4. text1.text=source 
  5. End Sub  

程序说明:程序首先通过CommonDialog1.show 语句来显示一个对话框,在其中用户可能选择要复制的源文件,然后把选中源文件的路径和文件名存储在变量soure中,同时通过Text1.text=source把源文件的路径和文件名显示在文本框中。

4.响应[另存为]按钮的单击事件

在设计阶段双击“另存为”按钮,在它的Command2_Click() 事件中添加下列代码:

  1. Private Sub Command2_click()  
  2. CommonDialog1.showsave '显示一个对话框  
  3. destination=CommonDialog1.Filename '存储目的文件路径和名字的字符串变量  
  4. Text2.text=destination '显示目的文件路径?/FONT>  

运行结果如图:

运行结果 

【编辑推荐】

  1. 讲解VB.NET语言学习经验
  2. 简单讲述VB.NET Excel
  3. VB.NET使用Alias子句简介
  4. 浅析VB.NET语言到底带来了什么
  5. 叙述VB.NET创建控件数组
责任编辑:田树 来源: 博客
相关推荐

2009-04-30 13:24:45

VB.NET 2008窗体应用实例

2010-01-14 16:54:56

VB.NET Impo

2009-10-15 17:41:14

VB.NET Impo

2009-11-04 08:53:57

VB.NET AddH

2009-10-21 16:00:26

VB.NET CASE

2009-10-28 10:31:23

VB.NET Impl

2009-10-16 11:21:54

VB.NET Decl

2009-10-15 11:42:05

VB.Net赋值语句

2009-10-28 14:34:44

VB.NET Tree

2010-01-19 18:24:29

VB.NET调用Win

2009-10-28 14:44:43

VB.NET Name

2010-01-21 18:35:56

VB.NET Impo

2009-11-04 11:32:20

VB.NET回调函数

2009-10-26 16:53:00

VB.NET常用代码

2009-10-21 09:40:23

VB.NET搜索

2009-10-22 09:20:46

VB.NET Proc

2009-10-26 19:22:29

VB.NET使用Log

2010-01-19 15:42:30

VB.NET赋值语句

2010-01-19 16:55:46

VB.NET声明语句

2010-01-18 13:46:32

VB.NET条件分支语
点赞
收藏

51CTO技术栈公众号