vb创建文件夹

我已经生成了两个文件，文件名为1，2，如何把文件1，2分别存入名为1和2的两个文件夹中？？

mkdir "文件夹名"

这个“文件夹名”必须是全路径，如c:\a\b\新文件

If (Right(File1.Path, 1)) = "\" Then

mkdir File1.Path & 新建文件夹

Else

mkdir File1.Path & "\" & 新建文件夹

End If

新建

if dir( "c:\test ",vbDirectory)= " " then mkdir "c:\test "

或用fso

用vb创建文件夹并检查其是否已存在

Public Function CheckDir(ByVal DirName As String) As Boolean

Dim ret As Integer

ret = SHFileExists(DirName)

If ret = 0 Then

CheckDir = False

Else

CheckDir = True

End If

End Function

Name "C:\System.1st " As "C:\test.txt"

因为文件C:\test.txt已经存在于C盘，VB将显示错误信息：“文件已存在”，同样，如果你要重命名

的文件不存在的话，就会出现“文件未找到”的错误信息。

* 如果New_pathname已经存在，并且和Old_pathname不同，函数Name必要时将文件移动到新文件

夹并且更改它的名称。

Name "C:\System.1st " As "D:\test.txt"

因为文件test.txt在D盘的根目录下并不存在，VB将C:\System.1st移动到指定的驱动盘，然而，并

不重命名该文件。（译者：本段与上面的内容似乎矛盾，而且未能试验成功，未知是原书失误与否。

读者应仔细验证）

* 如果New_pathname和Old_pathname指向不同的目录，以及提供的文件名称相同，那么Name函数

将指定的文件移到新地址，不用更改文件名。

Name "D:\test.txt " As "C:\DOS\test.txt"

上面的指令将test.txt移动到C盘下的DOS文件夹里。

----------------------- 页面 152-----------------------

技巧8-1 你不能重命名开启的文件

在重命名文件之前，你必须关闭该文件。文件名称里不能包含通配符“*”或者“?”。

3.检查文件或文件夹是否存在（Dir 函数）

Dir函数，返回文件或者文件夹名称，语法如下：

Dir[(pathname[, attributes])]

Dir函数的两个参数都是可选的，pathname是文件或文件夹名称，对于参数attributes，你可以下

列常量或者数值之一：

表8-1 文件属性

常量 数值 属性名称

程序设计基础(Visual Basic)

实验指导书

西南林学院计算机与信息科学系

实验说明

一、实验文档下载：

老师的实验上机文档下载的地址：/~hjp/下的“VB”文件夹拷贝到计算机中。然后从该文件夹中找到本次实验的文档。

二、个人文件夹建立

在实验前，请先在电脑桌面上建立个人自己的文件夹，名称以个人的姓名加学号组成。如：“20130208001XXX”。同学们自己个人的VB程序设计实验文档都存放在该文件夹中。而且要求，每个实验都保存在单独的文件夹中。如，本次实验有三个例子，那么就需要建立三个文件夹，第一个文件夹的命名可为“实验1-1”，如此类推。相应的例子程序文件保存在相应的文件夹中。

三、实验结果上传给老师

实验完成后，同学们需将自己的文件夹上传给老师，以备检查。上传步骤如下。

1. 压缩文件夹。请将保存有VB实验上机程序的个人文件夹（在之前建立好的，如：“20130208001XXX”）进行压缩处理。压缩方法如下：选中该文件夹，单击鼠标右键，选中“添加到“20130208001XXX.rar””。计算机自动完成生成该文件夹的压缩文件。

2. 进入FTP。上传的地址为：ftp://192.168.1.2（或按任课老师指定的地址） ,

输入地址后进入该FTP网。打开“XXX”文件（该文件夹以任课老师姓名而命名）下的“上传”文件夹。

3. 上传文件。将第一步中生成的压缩文件拷贝到第二步打开的“上传”文件夹中去。等待拷贝完成后，才能确认程序上传成功。 四、实验内容说明

本实验指导书共包含15次实验上机内容。每次实验上机内容中包括三种题型：验证题、设计题和选做题。验证题为教材中的例题，通过参考书上的说明和操作步骤来熟悉相应知识点，一般有1-2道题。设计题为书上习题或其他来源的题目，目的是让学生能够在不照搬照抄的情况下自己独立思考完成VB程序设计，一般有1-2道。选做题为学有余力的同学练习，一般有1-2道。每次实验上机学生必须完成相应的验证题和设计题。

vb6中copyfile用法

VB6中CopyFile用法

简介

CopyFile函数是VB6中用于复制文件的一个重要函数。它可以将一个文件从一个位置复制到另一个位置，同时还可以指定是否覆盖已存在的文件。

使用语法

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long)

As Long

参数说明： - lpExistingFileName：被复制的文件的路径和文件名。 - lpNewFileName：新文件的路径和文件名。 - bFailIfExists：指示如果目标文件已存在时是否覆盖。0表示覆盖，非0表示不覆盖。

示例用法

基本用法

Dim sourceFile As String

Dim destinationFile As String

sourceFile = "C:\Temp\" destinationFile = "C:\Temp\"

CopyFile sourceFile, destinationFile, 0

上述代码将把C:\Temp\文件复制到C:\Temp\。

覆盖已存在文件

Dim sourceFile As String

Dim destinationFile As String

sourceFile = "C:\Temp\"

destinationFile = "C:\Temp\"

CopyFile sourceFile, destinationFile, 1

上述代码将把C:\Temp\文件复制到C:\Temp\，如果``已存在，则会被覆盖。

检查复制结果

Dim sourceFile As String