forked from robinrodricks/FluentFTP
-
Notifications
You must be signed in to change notification settings - Fork 0
/
GetListingWithLinks.vb
89 lines (66 loc) · 2.54 KB
/
GetListingWithLinks.vb
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
82
83
84
85
86
87
88
89
Imports System
Imports System.Net
Imports System.Threading
Imports System.Threading.Tasks
Imports FluentFTP
Namespace Examples
Friend Module GetListingWithLinksExample
Sub GetListing()
Using conn = New FtpClient("127.0.0.1", "ftptest", "ftptest")
conn.Connect()
' get a listing of the files with their modified date & size
For Each item In conn.GetListing(conn.GetWorkingDirectory(), FtpListOption.Modify Or FtpListOption.Size)
Select Case item.Type
Case FtpFileSystemObjectType.Directory
Case FtpFileSystemObjectType.File
Case FtpFileSystemObjectType.Link
' manually dereference symbolic links
If item.LinkTarget IsNot Nothing Then
item.LinkObject = conn.DereferenceLink(item)
If item.LinkObject IsNot Nothing Then
End If
End If
End Select
Next
' get a listing of the files with their modified date & size, and automatically dereference links
For Each item In conn.GetListing(conn.GetWorkingDirectory(), FtpListOption.Modify Or FtpListOption.Size Or FtpListOption.DerefLinks)
' do something
Select Case item.Type
Case FtpFileSystemObjectType.Directory
Case FtpFileSystemObjectType.File
Case FtpFileSystemObjectType.Link
End Select
Next
End Using
End Sub
Async Function GetListingAsync() As Task
Dim token = New CancellationToken()
Using conn = New FtpClient("127.0.0.1", "ftptest", "ftptest")
Await conn.ConnectAsync(token)
' get a listing of the files with their modified date & size
For Each item In Await conn.GetListingAsync(conn.GetWorkingDirectory(), FtpListOption.Modify Or FtpListOption.Size, token)
Select Case item.Type
Case FtpFileSystemObjectType.Directory
Case FtpFileSystemObjectType.File
Case FtpFileSystemObjectType.Link
' manually dereference symbolic links
If item.LinkTarget IsNot Nothing Then
item.LinkObject = conn.DereferenceLink(item)
If item.LinkObject IsNot Nothing Then
End If
End If
End Select
Next
' get a listing of the files with their modified date & size, and automatically dereference links
For Each item In Await conn.GetListingAsync(conn.GetWorkingDirectory(), FtpListOption.Modify Or FtpListOption.Size Or FtpListOption.DerefLinks, token)
' do something
Select Case item.Type
Case FtpFileSystemObjectType.Directory
Case FtpFileSystemObjectType.File
Case FtpFileSystemObjectType.Link
End Select
Next
End Using
End Function
End Module
End Namespace