【不求了，自力更生已解决】50元求解决个文件夹新建的小问题

lilyhcn1 · 发表于 2019-9-8 19:18

本帖最后由 lilyhcn1 于 2019-9-8 22:18 编辑

我尊重各位大佬的辛勤回复，50元不多，但代表我的心意。

经费使用测试0902.zip (141.17 KB, 下载次数: 25)
点击下载时，可以从网站上下载文件，并自动重命名。现在有两个问题
1. 文件夹的建立好像有问题，我现在简单的删除并新建，有时会出错。

2. 下载文件时能否跳过已下载的文件，这个感觉实现不了。如能实现报报酬另计。
先谢谢大家的关注了。

maditate · 发表于 2019-9-8 19:26

在指定的路径下，判断一下是否存在指定的文件夹。如果没有则自动动创建文件夹。在指定的文件夹内是否有文件，有则自动删除。

lilyhcn1 · 发表于 2019-9-8 19:30

花点时间学应该可以，但我不想学了，能帮忙写一下吗

changhong8 · 发表于 2019-9-8 19:32

这比网络化简单多了，搞不定？

liulang0808 · 发表于 2019-9-8 19:35

http://club.excelhome.net/thread-1258425-1-1.html
看看是否有用吧

killq · 发表于 2019-9-8 19:36

dir或者fso查看文件夹是否存在，不存在就新建
第二条，建议还是先重命名，然后再通过手段去验证是否与存在同名文件是否为同一文件，如果是就删除，不是保留

maditate · 发表于 2019-9-8 19:38

Sub test() '未经测试
aaa = ThisWorkbook.Path
rrr = Dir(aaa & "\指定文件夹", 16) '判断创建文件夹
If rrr = Empty Then
MkDir aaa & "\指定文件夹"
End If
mifile = Dir(aaa & "\指定文件夹\*.*") '删除文件夹内所有文件
Do
If mifile = Empty Then Exit Do
Kill aaa & "\指定文件夹" & mifile
mifile = Dir(aaa & "\指定文件夹\*.*")
Loop
End Sub

复制代码

lilyhcn1 · 发表于 2019-9-8 19:39

就是倦了，不想改了，想花点小钱让你们帮一下忙，我只是无脑的把代码复制进去就行了。

killq · 发表于 2019-9-8 19:42

留给有缘人吧，我也懒得弄，估计还得先读你的代码，累

闻启学 · 发表于 2019-9-8 19:42

lilyhcn1 发表于 2019-9-8 19:39
就是倦了，不想改了，想花点小钱让你们帮一下忙，我只是无脑的把代码复制进去就行了。

加我QQ ：41714912 6

		自动登录	找回密码
密码			免费注册

[求助] 【不求了，自力更生已解决】50元求解决个文件夹新建的小问题

最新热点 /1