Ⅰ VB 检测文件夹是否为空
有一个很简单的方法，用RmDir 文件夹，直接删除文件夹。
如果删除出错，那就表示文件夹不是空的。
代码如下(以C: emp为例)：
tmp="C: emp"
OnErrorGoToErr
RmDir(tmp)'删除目录，如果出错表示不为空
MkDir(tmp)'重新建目录
MsgBox"文件夹为空！"
ExitSub
Err:
MsgBox"文件夹不为空！"
Ⅱ 我想用vb 监控 某个文件夹下的文件是否有变化，如果出现了变化，进行报警并显示内容
若只是监视文件夹下的 文件数目、名称是否有改变的话 很容易。若要检测文件夹下文件内容是否被改动，就需要检测所有文件的修改日期了。先来个检测文件夹下名称、数量的吧。
在VB中要实现查找文件功能，我们可以利用VB的DIR函数进行递归来实现。每次使用DIR函数后，比较是否有要查找的文件，再检查是否有子目录，若有，利用递归继续查找，这样可对整个盘进行查找。
下面是一个例子，查找DOS目录下的所有EXE文件，统计EXE文件的数目并列出文件名。本程序会查找当前路径下的所有文件和子目录，与WIN95的“包含子文件夹”的查找功能类似。
程序与注释如下：
1.在窗体中加一命令按钮Command1,Caption=查找示例，双击此按钮，写如下代码：
Private Sub Command1_Click()
Dim ff() As String '定义一个字符串数组用来保存找到的文件名称
Dim fn As Long '保存找到的文件数目
fn=TreeSearch("C:%%dos","*.exe"，ff())
Print "找到文件数目为" & fn
For I=1 To fn
Print ff(I)
Next
End Sub
2.插入一模块Molel.bas，写如下代码：
Option Explicit
Public Function TreeSearch(ByVal sPath As String,ByVal sFileSpec As String,sFiles() As String) As Long
Static 1Files As Long '文件数目
Dim sDir As String
Dim sSubDirs() As String '存放子目录名称
Dim 1Index As Long
If Right(sPath,1)<>"%%" Then sPath=sPath & "%%"
sDir=Dir(sPath & sFileSpec)
'获得当前目录下文件名和数目
Do While Len(sDir)
1Files=1Files+1
ReDim Preserve sFiles(1 To 1Files)
sFiles(1Files)=sPath & sDir
sDir=Dir
Loop
'获得当前目录下的子目录名称
1Index=0
sDir=Dir(sPath & "*.*",16)
Do While Len(sDir)
If Left(sDir,1)<>"." Then 'skip.and..
'找出子目录名
If GetAttr(sPath & sDir)And vbDirectory Then
1Index=lIndex+1
'保存子目录名
Redim Preserve sSubDirs(1 To 1Index)
sSubDirs(1Index)=sPath & sDir & "%%"
End If
End If
sDir=dir
Loop
For 1Index=1 To 1Index
'查找每一个子目录下文件，这里利用了递归
Call TreeSearch(sSubDirs(1Index),sFileSpec,sFiles())
Next 1Index
TreeSearch=1Files
End Function
3.保存文件，按F5运行，单击命令按钮即可。
Ⅲ Python使用判断，检查是都存在1.TXT文件，如果不存在，返回文字不存在！怎么写这段代码
检查文件是否存在的方法，在Python3文件操作中经常被用到，因为，只有文件存在，我们才可以对文件进行下一步处理，那么，常用的检查文件存在的方法有哪些呢？以下是Python3检查文件是否存在的几种方法。
一、 使用os库
os库方法可检查文件是否存在，存在返回Ture，不存在返回False，且不需要打开文件。
1. os.path.isfile文件检查
import os.path
filename='/oldboye.com/file.txt'
os.path.isfile(filename)
2. os.path.exists文件夹检查
import os
a_path='/oldboye.com/'
if os.path.exists(a_path):
#do something
3. os.access文件权限检查
import os
filename='/oldboye.com/file.txt'
if os.path.isfile(filename) and os.access(filename, os.R_OK):
#do something
二、使用pathlib库
使用pathlib库也是一种检查文件是否存在的方法，且从Python3.4开始，Python已经把pathlib加入了标准库，无需安装，即可直接使用！
1. 检查文件是否存在
from pathlib import Path
my_file = Path("/oldboye.com/file.txt")
if my_file.is_file():
# file exists
2. 检查文件夹是否存在
from pathlib import Path
my_file = Path("/oldboye.com/file.txt")
if my_file.is_dir():
# directory exists
3. 文件或文件夹是否存在
from pathlib import Path
my_file = Path("/oldboye.com/file.txt")
if my_file.exists():
# path exists
以上列举Python3中检查文件和文件夹的两种常用的方法，适用于Python3相关版本，其他版本略有不同，可以根据实际情况进行设置！