将文件复制到正确的文件夹

Atook · 发表于 2007-10-31 07:32:59

我有很多文件夹，这是项目名称，例如100_250，这个文件夹中的项目文件从100到250，但是我知道我需要在正确的文件夹中创建一个项目，例如，我需要将项目编号30和175复制到正确的文件夹，怎么做

Bryco · 发表于 2007-10-31 13:11:20

本人&#039；我不理解你，也许你可以发布一个你的文件夹树截图？

Bryco · 发表于 2007-10-31 15:11:54

另一种方式是这样的；我需要将项目编号30和175复制到右侧文件夹中；项目30；如果30&gt；25和99&gt；30；或30=25或99=30，然后折叠到25_99；项目175；如果175&gt；100和250&gt；175；或175=100或250=175，然后在文件夹树中折叠100\u 250

Bryco · 发表于 2007-10-31 15:50:27

这应该给你一个开始

copy

Sub test()
Dim objFS As Object
Dim objDrive As Object
Dim objFldrs As Object
Dim objFldr As Object
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFS.GetFolder("C:")
Set objFldrs = objDrive.subfolders
For Each objFldr In objFldrs
    If objFldr.Name < 100 Then
        objFldr.MoveFolder objFldr.Path, "c:\25_99" & objFldr.Name
    ElseIf objFldr.Name < 251 Then
        objFldr.MoveFolder objFldr.Path, "c:\100_250" & objFldr.Name
    End If
Next objFldr
End Sub

未测试，但应非常接近。

Bryco · 发表于 2007-10-31 16:06:51

刚刚注意到线程的名称没有#039；与我的答案不符&nbsp；你&#039；如果你想复制，我想用CopyFolder方法而不是MoveFolder。

Bryco · 发表于 2007-11-5 14:39:19

本人&#039；我猜想，由于缺乏跟进，我要么离得足够近，以至于你成功了，要么离得太远，以至于你放弃了。

Bryco · 发表于 2007-11-5 18:39:10

嗨，鲍勃，他确实说了抄送，但除此之外，看起来你把它搞定了
FSO对象非常有用

Bryco · 发表于 2007-11-5 20:12:34

因为字符串；11“&燃气轮机&引用；100“；it#039；最好在检查之前将文件名转换为整数
如果是数字（文件名），则ifile=cint（文件名）

Bryco · 发表于 2007-11-6 09:41:40

你是说，他应该将objFldr声明为整数
Dim objFldr As Integer是这样的，这很有意义，但是；objFldr。路径是一个字符串，我用VBSripting语言注意到，数据类型是&#039；我真的用了很多，至少是我所看到的
当我在VBA中使用或引入脚本代码时，我会尝试为nec分配正确的数据类型，而不仅仅是使用对象或变量。并避免过度使用变体

Bryco · 发表于 2007-11-6 09:42:38

我明白了，我认为函数isnumeric会看一串文本并抓取数值
标记

将文件复制到正确的文件夹

发表回复

精选推荐