VB.NET dizini çekme? |
2 Mesajlar | 663 Okunma | ||
- Üyelik 17.01.2016
- Yaş/Cinsiyet 27 / E
- Meslek .
- Konum Diğer
- Ad Soyad R** A**
- Mesajlar 389
- Beğeniler 191 / 51
- Ticaret 2, (%100)
VB.NET ile dizini nasıl çekebilirim?
- Üyelik 01.08.2016
- Yaş/Cinsiyet 38 / E
- Meslek Bilgisayar Mühendisi
- Konum Kocaeli
- Ad Soyad O** A**
- Mesajlar 62
- Beğeniler 4 / 21
- Ticaret 1, (%100)
Private Function AllFiles(ByVal FullPath As String) _
As String()
Dim oFs As New FileSystemObject
Dim sAns() As String
Dim oFolder As Folder
Dim oFile As File
Dim lElement As Long
ReDim sAns(0) As String
If oFs.FolderExists(FullPath) Then
Set oFolder = oFs.GetFolder(FullPath)
For Each oFile In oFolder.Files
lElement = IIf(sAns(0) = "", 0, lElement + 1)
ReDim Preserve sAns(lElement) As String
sAns(lElement) = oFile.Name
Next
End If
AllFiles = sAns
ErrHandler:
Set oFs = Nothing
Set oFolder = Nothing
Set oFile = Nothing
End Functionişine yarayabilir mantığı kurabilirsin
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)