Oncelikle 1. sorunum
İlk Once Sorunum Bu Kod SARI BOLGE YANİ "2" Yİ AKTARIYOR BENİM İSTEDİĞİM KIRMIZI BOLGE VE SARI BOLGE GİBİ OLMASI AMA SADECE 2Yİ AKTARIYOR YANİ SADECE ORNEK.EXE Yİ AKTARIOR BENİM İSTEDİGİM C:/ORNEK.EXE OLMASI
KOD BU
Dim directory = "C:/Users/Emre/Desktop"
Dim files() As System.IO.FileInfo
Dim dirinfo As New System.IO.DirectoryInfo(directory)
Dim file
files = dirinfo.GetFiles("*.txt", IO.SearchOption.AllDirectories)
For Each File In files
ListBox1.Items.Add(File)
Next
BU KOD MASAUSTUNDE .TXT DOSYALARINI ARIYOR AMA LİSTBOXA SADECE DOSYA İSMİNİ AKTARIYOR DOSYALİNKİ & DOSYAİSMİ OLMUYOR & TANINAMADI YARDIM EDİN
2.SORUNUM İSE
MAVİ YERDE O AKTARILANLARIN KB CİNSİNDEN NASIL YANINA YAZDIRCAM YANİ SUBİTEMİNE YAZDIDIRKEN HEM MESELA TANIMDA C/USERS/EMRE/ORNEK.TXT VARSA HADİ ONUN BOYUTU AŞAĞIDAKİLERLE KARIŞIRSA LUTFEN ANLATIRMISINIZ
DOSYA BOYUTU KODUMDA BUDUR ARKADAŞLAR
Dim dosyaBoyut As IO.FileInfo
dosyaBoyut = My.Computer.FileSystem.GetFileInfo("C:/Users/Emre/Desktop/Ornek.exe")
messagebox.show("Dosya Boyut: " & dosyaBoyut.Length 1024 & " byte(s)")
LUTFEN YARDIMLARINIZI BEKLİYORUM
__________________