1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
| Public Class PDF_COPIE
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Call LireRep("z:\test")
End Sub
Private Sub LireRep(ByVal Rep As String)
Dim repertoire As New DirectoryInfo("z:\test")
Dim NewRep As DirectoryInfo = Repertoire.CreateSubdirectory("Transfert")
Dim Extention As String = ("test")
Dim SousRep As String() = Directory.GetDirectories(Rep)
Dim DirRep As String
Dim DirRep2 As String
Dim DirRep3 As String
Dim NomRep As String
Dim DebNom As String
Dim Lng As Integer
Dim NomFichier As String
Dim Repert2 As String
Dim RepReseau As String
Extention = Path.GetFileNameWithoutExtension("test")
NomFichier = Microsoft.VisualBasic.Right(Extention, 4)
If File.Exists("z:\test\transfert\test.abc") Then
My.Computer.FileSystem.DeleteFile("z:\test\transfert\test.abc")
End If
For Each Extention In Directory.GetFiles("q:\projects", Extention, SearchOption.AllDirectories)
NomRep = Path.GetDirectoryName(Extention)
DirRep = NomRep.Substring(12)
DirRep2 = Microsoft.VisualBasic.Mid(DirRep, Microsoft.VisualBasic.InStr(DirRep, "\") + 1)
DirRep3 = Microsoft.VisualBasic.Left(DirRep2, Microsoft.VisualBasic.InStr(DirRep2, "\") - 1)
File.Copy("c:\users\ordis\documents\test\test.abc", "z:\test\transfert PDF\test.abc")
System.Threading.Thread.Sleep(1000)
Try
'détermine si le fichier est supprimé ou pas avec un "-"
DebNom = Microsoft.VisualBasic.Left(DirRep3, Microsoft.VisualBasic.InStr(DirRep3, "-") + 3)
Catch ex As Exception
MessageBox.Show(ex.ToString)
If Lng > 3 And DirRep3 = "-" Then
File.Delete("z:\test\Transfert\" & NomFichier)
End If
Finally
DebNom = Nothing
End Try
DebNom = Microsoft.VisualBasic.Left(DirRep3, 2)
If DebNom = "HS" Or DebNom = "qd" Then
File.Delete("z:\test\Transfert\" & NomFichier)
GoTo 1
End If
DebNom = Microsoft.VisualBasic.Left(DirRep3, 3)
If DebNom = "RPA" Or DebNom = "DRW" Or DebNom = "RPR" Or DebNom = "RCH" Then
File.Delete("z:\test\Transfert\" & NomFichier)
GoTo 1
End If
DebNom = Microsoft.VisualBasic.Left(DirRep3, 4)
If DebNom = "RSAT" Or DebNom = "RTAB" Or DebNom = "RCAN" Or DebNom = "RFOU" Or DebNom = "HYCK" Or DebNom = "MEMY" Or DebNom = "MEPA" Then
File.Delete("z:\test\Transfert\" & NomFichier)
GoTo 1
End If
DebNom = Microsoft.VisualBasic.Left(DirRep3, 5)
If DebNom = "RCONV" Or DebNom = "RDOMP" Or DebNom = "RTEU" Or DebNom = "RTRAN" Or DebNom = "RRAIL" Or DebNom = "RDRIV" Or DebNom = "RCOIN" Or DebNom = "RPLFO" Or DebNom = "RTEVI" Or DebNom = "RECAR" Or DebNom = "RPLAT" Or DebNom = "RTUYA" Or DebNom = "RRIOP" Then
File.Delete("z:\test\Transfert\" & NomFichier)
GoTo 1
End If
If DebNom <> "HS" And DebNom <> "QD" And DebNom <> "RPA" And DebNom <> "RTAB" And DebNom <> "RCAN" And DebNom <> "RFOU" And DebNom <> "HYCK" And DebNom <> "MEMY" And DebNom <> "MEPA" And DebNom <> "RSAT" And DebNom <> "RCONV" And DebNom <> "RDOMP" And DebNom <> "RTEU" And DebNom <> "RTRAIN" And DebNom <> "RDRIV" And DebNom <> "RCOIN" And DebNom <> "RPLFO" And DebNom <> "RTEVI" And DebNom <> "RECAR" And DebNom <> "RTUYA" Then
My.Computer.FileSystem.RenameFile("z:\test\transfert\test.abc", DirRep3 & ".abc")
Repert2 = Directory.GetDirectories("z:\test\transfert", SearchOption.AllDirectories)
End If |
récupérer un sous-répertoire
Répondre avec citation
Envoyé par infodes
Partager