本人小白再求一個遍歷指定文件類型移動其資料夾的代碼

yl.fu

hwc2ycy 发表于 2013-5-25 14:41
不一样的，其实语言很多是想通的，基本的结构就这么几种。

奧，剛才一位老師也給我做了一個移動圖片的，是用ruby做的，只是要裝插件，我原來以為EXCEL中只有VBA語言，看來我真是啥都不懂啊

Sub moveBMP()
   Dim oJs As Object
   Set oJs = CreateObject("ScriptControl"): oJs.Language = "RubyScript"
       oJs.eval ("pth='" & [d2] & "';Dir.chdir(pth);pth+='\圖片';Dir.mkdir" _
                & "(pth) unless File.directory?(pth);Dir['**/*BMP'].each{" _
                & "|o|File.rename(o,pth+'/'+File.basename(o))};")
       Set oJs = Nothing
   End Sub

yl.fu

Sub moveFld()
    Dim oJs As Object

    Set oJs = CreateObject("ScriptControl"): oJs.Language = "RubyScript"
    oJs.eval ("require 'FileUtils';pth='" & [d2] & "';Dir.chdir(pth);" _
             & "pth+='\NC';Dir.mkdir(pth) unless File.directory?(pth)" _
             & ";Dir['**/*.nc'].map{|o|File.dirname(o)}.uniq.each{|o|" _
             & "FileUtils.mv o,pth};")
    Set oJs = Nothing
End Sub