vb 判断文件夹内 文件个数
一个文件件夹内原本有N个文件当我复制X个文件时,Z就是X+N我要问的是,复制前的文件个数N,和复制进去的X怎么判断他们的个数就是我要知道X,N的值,目的是计算此人到底复了...
一个文件件夹内原本有N个文件
当我复制X个文件时,Z就是X+N
我要问的是,复制前的文件个数N,和复制进去的X怎么判断他们的个数
就是我要知道X,N的值,目的是计算此人到底复了多少文件过去
代码怎么写,我毫无思绪 展开
当我复制X个文件时,Z就是X+N
我要问的是,复制前的文件个数N,和复制进去的X怎么判断他们的个数
就是我要知道X,N的值,目的是计算此人到底复了多少文件过去
代码怎么写,我毫无思绪 展开
展开全部
复制之前,弄个文件列表。
复制之后,弄个文件列表。
然后,你懂得。
复制之后,弄个文件列表。
然后,你懂得。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim fso, fldPath, fld
Function GetFolder(ByVal Path As String) As String
On Error Resume Next
fldPath = Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldPath)
GetFolder = fld.Files.Count
End Function
写到类模块
窗体代码
Dim C As New Class1
Private Sub Command1_Click()
Me.Caption = C.GetFolder ("C:\")
End Sub
Function GetFolder(ByVal Path As String) As String
On Error Resume Next
fldPath = Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldPath)
GetFolder = fld.Files.Count
End Function
写到类模块
窗体代码
Dim C As New Class1
Private Sub Command1_Click()
Me.Caption = C.GetFolder ("C:\")
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
vb能知道你做过什么?谁知道?等高人解答
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询