scripting runtime

CREER UN REPERTOIRE SI IL N'EXISTE PAS

Public Sub crearep(monrep As String)

On Error GoTo gesterr

Dim mastring As String

Dim oFSO As Scripting.FileSystemObject

Dim oFld As Folder

Set oFSO = New Scripting.FileSystemObject

If oFSO.FolderExists("monchemin") Then

Else

Set oFld = oFSO.CreateFolder("monchemin")

End If

fin:

Exit Sub

gesterr:

If err.Number = 13 Then 'une erreur qui se produit, mais sans importance

Resume fin

Else

MsgBox err.Number & " : " & err.Description

End If

End Sub

PARCOURIR UN REPERTOIRE, récupérer les noms des fichiers

Public Sub scanemarg(doc As String)

On Error GoTo gesterr

Dim chemscan As String

chemscan = "monchemin"

Dim oFSO As Scripting.FileSystemObject

Dim oFld As Scripting.Folder

Dim oFl As File

Set oFSO = New Scripting.FileSystemObject

Set oFld = oFSO.GetFolder(chemscan)

For Each oFl In oFld.Files

If oFl.Name = "Thumbs.db" Then

Else

Dim monemargt As Integer

monemargt = Left(oFl.Name, Len(oFl.Name) - 4)

'suite du traitement avec le nom du fichier ...............

oFl.Name = monemargt & ".pdf"

oFl.Move "N:\" & doc & "\" & ansess & "\" & oFl.Name

Next

Exit Sub

gesterr:

If err.Number = 58 Then 'existe deja dans dossier

oFSO.DeleteFile "N:\" & doc & "\" & ansess & "\" & oFl.Name

Resume

Else

MsgBox err.Number & " : " & err.Description

End If

End Sub