在文件件A中有文本1,2,3,4……，文件夹B中有子文件夹a，b，c……怎么样才可以实现简单的操作将A中的移到B
在文件件A中有文本1,2,3,4……，文件夹B中有子文件夹a，b，c……怎么样才可以实现简单的操作将A中的1，2,3,4分别移动到B中的a，b，c……中去...
在文件件A中有文本1,2,3,4……，文件夹B中有子文件夹a，b，c……怎么样才可以实现简单的操作将A中的1，2,3,4分别移动到B中的a，b，c……中去
展开
1个回答
展开全部
Private Sub Command1_Click()
Dim x As Integer
x = 1
Do Until Dir("A\" & x & ".txt") = ""
Name "A\" & x & ".txt" As "B\" & Chr(96 + x) & "\" & x & ".txt"
x = x + 1
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
