高手来看一下VB的简单编程题！！！

来源：百度知道 编辑：UC知道 时间：2024/07/11 02:57:16
1 数组a(1 to 100)存放职工类型变量。编写代码删除姓名为“mary”的职工信息。设数组里已有n（n<100）个职工信息且职工姓名不重复。

2 文件d:\b.txt保存上述类型记录，编写代码物理删除姓名为“mary”的职工信息。已知职工姓名不重复。

3 设职工信息存放于关系数据库personel的employee表中，字段分别为姓名、部门和工资，其中姓名为关键字。数据控件data1与该表绑定。编写代码删除姓名为“mary”的职工信息。

跪求！

提供一个 VB 遍历指定文件夹下 文件的 代码

'查找第一个文件的API
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
'查找下一个文件的API
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
'获取文件属性的API
Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
'关闭查找文件的API
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
'以下为调用浏览文件夹窗口的API
Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare