Selamlar, bu kodları yabancı bir siteden buldum. Harddisk'te spesifik bir dosya turunu tarıyor. Ben bu taranan dosyayı *.pdf yapıp, tum bulunanlarıda D:\yedek klasorune kopyalamak istiyorum. Duzenlememde yardımcı olursanız cok sevinirim.

Alıntı:
Imports System.IO
Imports System
Imports System.Collections.Generic

Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim vFolder As String = "c:\"
WalkDirRecursive(vFolder)
End Sub

Private Sub WalkDirRecursive(ByVal vPath As String)
Dim vDirInfo As New System.IO.DirectoryInfo(vPath)
If Not vDirInfo.Exists Then Exit Sub

'get all files' sizes in current path
On Error Resume Next
For Each vFile As String In System.IO.Directory.GetFiles(vDirInfo.FullName)

'do something with this file
Debug.Print(vFile)
Next

'do the same for all subfolders
For Each vSubDir As String In System.IO.Directory.GetDirectories(vDirInfo.FullNa me)
WalkDirRecursive(vSubDir)
Next
End Sub

Private Sub RecurseDirectories(ByVal di As DirectoryInfo)
Try
For Each d In di.GetDirectories()
ProcessData(d)
RecurseDirectories(d)
Next
Catch
End Try
End Sub

Private Sub ProcessData(ByVal di As IO.DirectoryInfo)
Dim strFileSize As String = ""
Dim fi As IO.FileInfo

Try
di.GetFiles("*.*", SearchOption.AllDirectories)
Catch
End Try

Try
Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")

For Each fi In aryFi
strFileSize = (Math.Round(fi.Length / 1024)).ToString()
Debug.Print("File Name: ", fi.Name)
'Debug.Print("File Full Name: ", fi.FullName)
'Debug.Print("File Size (KB): ", strFileSize)
'Debug.Print("File Extension: ", fi.Extension)
'Debug.Print("Last Accessed: ", fi.LastAccessTime)
Next
Catch
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim di As New IO.DirectoryInfo("C:\")
RecurseDirectories(di)
End Sub
End Class

__________________