向高手求教vb知识

Question

我想将一个文件拷贝到一个文件夹下不同的子文件夹中应该如何做？谁能帮帮我，谢谢！
求源码。

Answer 1

  FileCopy "C:\1.Txt", "D:\2.txt"将C:\1.Txt 复制至 D:\2.Txt

Answer 2

dim a,b as string
a="c:\hello.doc"
b="d:\win\hello.doc"
filecopy a,b 

Answer 3

http://topic.csdn.net/u/20090703/00/28b25c6d-08a9-4ea3-95d1-967d8d12dccf.html?54583
回复,加我的群,我真诚的帮助你

Answer 4

我的意思是要拷贝的不是一个文件夹中，需要拷贝到多的文件夹中。
例如：C:\Hello.doc
      要拷贝到D盘中的“新建文件夹”中的子文件夹。子文件夹有多个：
      D:\新建文件夹\1\Hello.doc
      D:\新建文件夹\2\Hello.doc
      D:\新建文件夹\3\Hello.doc
      D:\新建文件夹\4\Hello.doc
每个子文件夹中都需要有Hello.doc这个文件怎么办？

Answer 5

 FileCopy "C:\Hello.doc", "D:\新建文件夹\1\Hello.doc" 
 FileCopy "C:\Hello.doc", "D:\新建文件夹\2\Hello.doc" 
 FileCopy "C:\Hello.doc", "D:\新建文件夹\3\Hello.doc" 
 FileCopy "C:\Hello.doc", "D:\新建文件夹\4\Hello.doc" 

Answer 6

Private Sub Command1_Click()
' 显示 C:\ 目录下的名称。
MyPath = "E:\123\"   ' 指定路径。
MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
Do While MyName <> ""   ' 开始循环。
   ' 跳过当前的目录及上层目录。
   If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
      FileCopy "C:\01.txt", "E:\123\" & MyName & "\01.txt"        List1.AddItem MyName   ' 如果它是一个目录，将其名称显示出来。
      End If
   End If
   MyName = Dir   ' 查找下一个目录。
LoopEnd Sub