stergann.org

2 - Function SHFileOperation_Copy2 (txtSource As String, txtDestination As String) As Integer
' Destination = PROFILPATH + "\"
' Source = UNC_ + "\*.*"
Dim Source As Variant
Dim Destination As Variant
Source=txtSource
Destination=txtDestination
On Error Goto ProcessError
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Source) Then
If Not (fso.FolderExists(Destination)) Then Set objFolder = fso.CreateFolder(Destination)
Print "Copie " & txtSource & " dans " & txtDestination
' fso.CopyFolder Source, Destination, OverWriteFiles
fso.CopyFolder Source, Destination, True

%REM
CopyFolder
Lorsque source comporte des caractères génériques ou lorsque destination se termine par un séparateur de chemin (), destination est supposé être un dossier existant dans lequel les dossiers et sous-dossiers correspondants seront copiés. Sinon, destination est considéré comme le nom d'un dossier à créer. Dans tous les cas, quatre événements peuvent se produire lors de la copie d'un dossier individuel.
Si destination n'existe pas, le dossier source est copié avec tout son contenu. C'est le cas le plus fréquent.
Si destination est un fichier existant, une erreur se produit.
Si destination est un répertoire, une tentative de copie du dossier et de tout son contenu sera faite. Si un fichier contenu dans source existe déjà dans destination, une erreur se produit lorsque la valeur de overwrite est False. Sinon, une tentative de copie du fichier par écrasement du fichier existant sera faite.
Si destination est un répertoire en lecture seule, une erreur se produit lorsqu'une tentative de copie d'un fichier existant en lecture seule sera faite alors que la valeur de overwrite est False.
Une erreur se produit également lorsqu'un élément source comportant des caractères génériques ne correspond à aucun dossier.
La méthode CopyFolder s'arrête dès qu'elle rencontre une erreur. Aucune tentative n'est faite en vue de restaurer les changements effectués avant que l'erreur se produise.
%END REM
Else
Goto ProcessError
End If
SHFileOperation_Copy2 = 0
Set fso = Nothing
Exit Function
ProcessError:
Messagebox "Problème sur Copie " & txtSource & " dans " & txtDestination
SHFileOperation_Copy2 = 1
Set fso = Nothing
Exit Function
End Function

Function FileExist2(filespec) As Integer

Dim fso
FileExist2=False
On Error Goto ProcessError
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
FileExist2=True
Else
FileExist2=False
End If
Exit Function
ProcessError:
FileExist2=False
Exit Function
End Function

Sub DeleteAFolder(filespec)

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)

End Sub

1 - Bonjour,


Si jamais tu vais les lignes de code permettant de faire de la copie de fichier, car je t'avoue que je tatonne mais je n'ai pas assez de compétences en lotus script.

Merci d'avance.