UC知道求一个非常简单的小程序
来源：百度知道 编辑：UC知道 时间：2024/05/16 00:14:11
我急需一个程序：
程序要将一个指定目录下的所有文件拷贝到具有连续性的目录名称下面，比如：将c:\test\下的所有文件分别拷贝到c:\wenjian\0001\,c:\wenjia\0002\,c:\wenjian\0003\.......c:\wenjian\9999\下面去。
我只熟悉DOS版的QB，程序写完执行正确，可拷贝完成后。长文件名被缩减，文件无法使用，您若用VB编写应该可以。
要求在界面上可以输入原文件所在目录，需写入文件的第一个目录，最后一个目录。并有拷贝完成的提示，有进度条更好。
另外涉及到的所有目录已经建立完毕，在界面上输入时用浏览的方式最好。
各位高手，我需要一个编译好的程序，请发到mailcm@163.com.
另外回答VB妮可的问题：是把所有的文件分别拷贝到每一个目录中。就是比如把此：c:\test\下的所有文件先都拷贝到此：c:\wenjian\0001\下，再都拷贝到c:\wenjian\0002\下，......一直拷贝到c:\wenjian\9999\下。
程序要将一个指定目录下的所有文件拷贝到具有连续性的目录名称下面，比如：将c:\test\下的所有文件分别拷贝到c:\wenjian\0001\,c:\wenjia\0002\,c:\wenjian\0003\.......c:\wenjian\9999\下面去。
我只熟悉DOS版的QB，程序写完执行正确，可拷贝完成后。长文件名被缩减，文件无法使用，您若用VB编写应该可以。
要求在界面上可以输入原文件所在目录，需写入文件的第一个目录，最后一个目录。并有拷贝完成的提示，有进度条更好。
另外涉及到的所有目录已经建立完毕，在界面上输入时用浏览的方式最好。
各位高手，我需要一个编译好的程序，请发到mailcm@163.com.
另外回答VB妮可的问题：是把所有的文件分别拷贝到每一个目录中。就是比如把此：c:\test\下的所有文件先都拷贝到此：c:\wenjian\0001\下，再都拷贝到c:\wenjian\0002\下，......一直拷贝到c:\wenjian\9999\下。
自己动手,丰衣足食
给你一段提示,只复制非隐藏文件,不包含子目录的文件,当然,也没有错误处理:
sSrcPath=inputbox("输入原文件所在目录") & "\"
sDesPath=inputbox("输入目标目录") & "\"
chdir sdespath
sFile=dir(ssrcpath )
lFileCounter=0
do until len(sfile)=0
lfilecounter=lfilecounter+1
sDesSubPath=format(lfilecounter,"0000")
md sdessubpath
filecopy ssrcpath & sfile ,sDesPath & sDesSubPath & "\" & sfile
sfile=dir()
loop
msgbox "复制了" & lfilecounter & "个文件。"
有规则吗?
随便拿一个文件,放入1个目录? 然后有N个文件就建N个目录?
一个目录需要放几个文件呀?