请问一个按键精灵新建文件夹的问题。

请问如何能够让按键精灵按照ACDSee5排序一样的新建一系列的文件。谢谢！... 请问如何能够让按键精灵按照ACDSee5排序一样的新建一系列的文件。
谢谢！展开

 我来答

1个回答

#热议# 普通体检能查出癌症吗？

delicious_time
2013-08-13 · TA获得超过135个赞

知道小有建树答主

回答量：154

采纳率：100%

帮助的人：89.7万

我也去答题访问个人页

关注

展开全部

For i = 1 To 20
If len(i) < 2 Then
j = "0" & i
Else
j = i
End If
filehand1 = Plugin.File.OpenFile("弊逗D:\Temp\" & j & ".jpg")
Plugin.File.CloseFile (filehand1)
isfile = Plugin.File.IsFileExit("D:\Temp\" & j & ".jpg")
If isfile = - 1 Then
TracePrint "创建文件：D:\Temp\" & j & ".jpg成功"
Else
TracePrint "创建失败"
End If
Next

创建20个jpg文件租局卖，腊腊以01开头向上递增

更多追问追答
追问

不好意思，我是想建文件夹，而且多少个文件夹要求变量。
追答

那还容易多了

UserVar 文件夹个数=1"生成文件夹个数"

i=1
For 文件夹个数
Call Plugin.File.CreateFolder("d:\" & i)
i = i +1
next
追问

文件夹名字以33055-4454-123-4846-001这样类型的，但一定是33055-4454-123-4846-001，主要是后面001递增，不足三位数，前面补0。创建文件夹个数999个之内任意，即是三位数。
 
是否可以详细点，谢谢。加分！
追答

999个内任意 是你自己定义 还是随机？
追问

自己定义的
追答

UserVar 文件夹个数=1"生成文件夹个数"
i=1
For 文件夹个数
    Select Case len(i)
    Case 1
        j = "00" & i
    Case 2
        j = "0" & i
    Case Else
        j=i
    End Select
    Call Plugin.File.CreateFolder("d:\33055-4454-123-4846-" & j)
    i = i +1
Next
MessageBox 文件夹个数&"个文件夹生成完毕"

文件夹个数 这个是你自己定义的