AU3编写代码，删除当前目录下所有文件和文件夹

#include <File.au3>
Local $sDir = @ScriptDir & "\*.*"
Local $aFiles = _FileListToArray($sDir)
For $i = 1 To $aFiles[0]
    Local $sFile = $aFiles[$i]
    Local $sPath = @ScriptDir & "\" & $sFile
    If FileExists($sPath) Then
        If StringInStr(FileGetAttrib($sPath), "D") Then
            DirRemove($sPath, 1)
        Else
            FileDelete($sPath)
        EndIf
    EndIf
Next

该代码首先获取当前目录下的所有文件和文件夹，然后遍历每个文件和文件夹，如果是文件夹，则使用`DirRemove`函数删除，如果是文件，则使用`FileDelete`函数删除。最后，所有文件和文件夹都将被删除。