请教：文件夹中没了路径中的文件处理办法

wyh99999　发表于：2010-07-14 17:18:48 　

（如题中的大意）

煮江品茶发表于：2010-07-14 19:25:47

1、增加引用Microsoft Scripting Runtime
2、窃以为用控件的获得焦点事件要好一些。
Private Sub 路径_GotFocus()
Dim FSO As New FileSystemObject
If FSO.FileExists(CurrentProject.Path & "\" & Me.路径.Value) = False Then
   MsgBox ("<农远文件收集>文件夹已移出或删除了文件．请查实去向或光盘！")
    Forms![资源登记表]![gpph].SetFocus '焦点转移
    Me.已移出.Value = True
End If
End Sub
3、可以采取弹出窗体的方式，在被弹出窗体的列表框中，列示出对应驱动器中的文件名。获取某驱动器中的文件名列表的函数，你可以去查一下我写的关于文件及文件夹管理的此类帖子，记得有几个中都有此类函数。

Top

wyh99999 发表于：2010-07-14 19:38:49

谢谢您“煮江”我“品茶”。

Top

wyh99999 发表于：2010-07-14 20:52:35

煮江品茶老师您好！

我根据您的提示没能完成第2点。

我原先的意图是判断文件夹中是否有[路径]中的文件，如果没有：1、将[已移出]更新为真；2、接着根据“终结光盘编号”文本框的值将[终结光盘]更新。

注：只要一条记录[已移出]为真，就说明文件夹有不少文件移出。因要移出的文件可用一张光盘装下的。

不知我的表述可清楚，请“煮江”老师为“wyh99999"要的“品茶”再调一下适合“wyh99999"口味。

谢了！

Top

煮江品茶发表于：2010-07-15 06:16:32

没太看明白你的意思。

获得焦点实际应该是只判断该条记录对应的文件是否以移走，由此为打开、删除等按钮的操作进行事前提示。

你说的“如果没有。。。”后面的2个功能，应该是主窗体确定按钮下实现的。

Top

煮江品茶发表于：2010-07-15 06:36:30

你的主窗体的确定按钮是不是应该是如下功能：

Private Sub Command55_Click()
Dim frm1 As Form, frm2 As Form
Dim ctls1 As Controls, ctls2 As contronls
Set frm1 = Me.Form
Set ctls1 = frm1.Controls
Set frm2 = Me.资源登记表_子.Form
Set ctls2 = frm2.Controls
Dim i As Long
For i = 1 To frm2.RecordsetClone.RecordCount
    frm2.SelTop = i
    If ctls2("是否移出") = False Then
        Call filMove(ctls2("路径").Value)    '请自己写filMove(sPath as string)函数
        ctls2("是否移出").Value = True
        ctls2("终结光盘").Value = ctls1("gpph").Value
    End If
Next
End Sub

Top

wyh99999 发表于：2010-07-15 14:41:38

谢谢“煮江品茶”老师，就这样搞定了。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

请教：文件夹中没了路径中的文件处理办法