I MAKE THAT CODE WHICH CALL MACRO BROWES FOR FOLDER I NEED DEL BAK AND LOG FILES BUT IT DOESN'T WORK
ANY ONE KNOW WHERE THE ERROR
MY CODE IS:
- Private Sub CommandButton7_Click()SsPath = BrowseForFolder(HWND, "Please select a folder.") [color=red]FOR CALLING MACRO[/color]Dim MyFile As StringMyFile = Dir$(SsPath & "*.BAK")Do While MyFile "" KillProperly SsPath & MyFile MyFile = Dir$(SsPath & "*.BAK")LoopDim MyFile2 As StringMyFile2 = Dir$(SsPath & "*.LOG")Do While MyFile2 "" KillProperly SsPath & MyFile2 MyFile2 = Dir$(SsPath & "*.LOG")LoopEnd Sub
|