VB如何使用代码删除文件和文件夹?

Question

VB如何使用代码删除文件和文件夹?
文件夹11 中有文件A
文件夹22 中同样有文件A；     文件的名称一样；文件的大小不一样！！ 文件夹22 中的文件A是压缩后的：： 
文件夹11 ；文件夹22  同在D盘下： 
1、 首先，判断文件夹22中的文件A和文件夹22是否存在？
2、 如果，文件存在A，将其先复制到另一个文件夹11中，覆盖同样名称的文件；
3、 再将此文件夹22 中文件A删除！！！
请教！！！

Answer 1

Private Function CompareArr(ByVal Find_Arr, ByVal WithIn_Arr, Non_Find_Arr, Non_WithIn_Arr) As Long
  Dim Count As Long
 
  ReDim Non_WithIn_Arr(UBound(Find_Arr)) As String
  ReDim Non_Find_Arr(UBound(WithIn_Arr)) As String  For i = 1 To UBound(Find_Arr)      For j = 1 To UBound(WithIn_Arr)
        If Find_Arr(i) = WithIn_Arr(j) Then          WithIn_Arr(j) = "Non"
          GoTo Handler '如果找到则转到Handler
          
        End If
      Next
      
    Count = Count + 1
    Non_WithIn_Arr(Count) = Find_Arr(i)
    
Handler: '如果找到到此处，没有找到执行上面一段代码
  Next
    
 Non_WithIn_Arr(0) = Count '设置未找到的总数
  
 'Non-B
 Count = 0
 For j = 1 To UBound(WithIn_Arr)
    If WithIn_Arr(j) <> "Non" Then
       Count = Count + 1
       Non_Find_Arr(Count) = WithIn_Arr(j)
    End If
 Next
 Non_Find_Arr(0) = Count '设置未找到的总数
  
End Function'Find_Arr         =    登记的电脑档名资料'WithIn_Arr       =    电脑内已存在的电脑档名资料图档'Non_Find_Arr     =    未登记的电脑档名，但电脑内有资料'Non_WithIn_Arr   =    有登记电脑档名，但电脑内未有资料'**********************************************'原理:
   '两个数组进行对比，如果有一样的，两个数组
   '中同时删除此数据。最后两个数组中剩下的就
   '是另一个数组中没有的数据.

Answer 2

If Dir("d:\文件夹22\文件A") <> "" Then 
    FileCopy "d:\文件夹22\文件A", "d:\文件夹11\文件A"
    kill "d:\文件夹22\文件A"
end if

Answer 3

   2楼的简单明了,结贴吧!
  也可以再加一句
  else msgbox"文件夹不存在"