关于 SHFILEOPSTRUCT 删除文件夹下的文件 问题

Public Sub DeleteFolder(Optional Interface As Boolean = False)

dim sDeleteFolder as string 

sDeleteFolder = "E:\data"

  SetAttr sDeleteFolder, 0
  With op
  .wFunc = 3
  .pFrom = sDeleteFolder
  .fFlags = 16
  End With
  SHFileOperation op
   
  Exit Sub
End Sub

如果我想删除 "E:\data"下面的文件 而不删除data文件夹该怎么办？？？

Public Sub DeleteFolder(Optional Interface As Boolean = False)

dim sDeleteFolder as string  

sDeleteFolder = "E:\data"

  SetAttr sDeleteFolder, 0
  With op
  .wFunc = 3
  .pFrom = sDeleteFolder
  .fFlags = 16
  End With
  SHFileOperation op
   
  mkdir "E:\data"
  Exit Sub
End Sub

两个方案，
1，按原来方法删除文件夹，然后创建新的空的文件夹
2：逐个删除该文件夹内的所有文件。

VB code

shell "rd /s /q e:\data",vbHide
shell "md e:\data",vbHide