Dim oFile As New Scripting.FileSystemObject DeleteFile = oFile.FileExists(sFullPath) If DeleteFile Then oFile.DeleteFile (sFullPath)
Killou
oFile.DeleteFilecela ne change rien car ils utilisent tous les 2 les mêmes APIS dans Kernell32.dll .
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim RepertoireApplication as String RepertoireApplication = Environ$("APPDATA") & "\ReefTools\"
Dim objFolder, objShell Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "Sélectionner un répertoire", 1, "")
Pourquoi un autre logiciel aurait-il plus de chance dans la suppression du fichier ?
FileNum = FreeFile: Open ParFile For Output As #FileNum lRet = CopyFile(BakFile, ParFile, False)lRet = 1 donc la copie fonctionne !