请教！如何用代码判断某文件夹是否存在？

sxgaobo

同题，如C：\TP，并将其及其中的文件一同删除！

鱼儿游游

'功能描述:      判断一个文件夹是否已存在
'
'输入参数:      strPathName 必需的，文件夹的路径名
'返回参数:      文件夹存在时返回True,不存在或路径名无效时返回Flase
Public Function IsFolderExists(ByVal strPathName As String) As Boolean
On Error GoTo Err_Handler

    If strPathName <> "" Then
        If (GetAttr(strPathName) And vbDirectory) <> 0 Then IsFolderExists = True
    End If
    If Len(strPathName) > 2 And Mid$(strPathName, 3, 1) <> "\" Then IsFolderExists = False

Exit_Handler:
    Exit Function

Err_Handler:
    IsFolderExists = False
    Resume Exit_Handler

End Function

鱼儿游游

删除指定目录下的所有文件，可以直接用VB自带函数kill
Kill "C:\abc\*.*" '表示删除C盘abc目录下的所有文件

sxgaobo

谢谢了朋友！！！