konu hakkında hiç bir bilgim yoktu onun için neler yaptığımı syleyemedim. Şimdi dosya aratıp bunu kaydetme mantığına ulaştım verdiğin kodlar bu iş için inşallah idealdir.

tree komutu Devlet Sırrı mı oldu?

drivelistbox+filelistbox+dirlistbox senin işini grür. soldaki compenentler menüsünde var bunlar. illaki kod istiyorsan azcık araştır. hazır bekleme. Kayalardan kayarım yoktur benim ayarım (;

: tree komutu Devlet Sırrı mı oldu? Aynen :IHerkez birbirine yardım etmeli :I

Ya beyler bu işle çook uğraştım kafam patladı gibi bişi şimdi ben şle bir şey istiyordum tree gibi listelemek olay çook farklı boyutlara geldi arama yaptırtıp tüm bunalrı listviewde gstermek ve daha sonra listview i kaydetmek şimdi ben bunu nasıl yapacağım bilmiyorum elimde bir arama progeramı var ama oldukça kompleks bir yapıya sahip.

Kardeş onlara kullanrak dizinler arası geçiş yapabilirsin bunları kaydetmek nemli araştırmaya gelince burada bu konu hakkında bilgili kişilerden bilgi istedim bu da araştırmamın bir parçası. Yardım eden de sağolsun edemeyen de. . .

ncelikle Herkese Merhaba. Ben vbasic 6.0da Bir sistemin "c:\" sürücüsündeki tüm dizinleri almak ve bu dizini bir txt dosyasına kaydetmek istiyorum. fakat ben dizinimde tüm dosyalarındadizine dahil olmasını istiyorum bildiğiniz üzere tree komutu yanlızca klasrleri listeliyor. Şimdi ben vbasic 6.0da dizin nasıl aldırırım. Dosya Arama Programım İçin Gerekli Bir Kod. Yardımlarınız İçin Şimdiden Çook Teşekkür Ediyorum

Ya bi de bu kodlar çook karşışık çzemiyorum.

Ya var ya bunu bilen vardır ama ne zaman tahribata düşer ve bana cevap yazar Allah bilir ama inşallah erken gelir çünkü bana acil lazım bu kod parçacığı.

:) elbette yardım etmeliyiz birbirimize ancak bu tüm işleri yardım edecek kişinin üstüne yıkmak demek değildir.. sadece takıldığı yerlerde yardım etmemiz gerekir ki yardım budur.. adam senden tüm kodu isterse gel de uğraş, onun istediği gibi kodları oluştur, şahsa zel birşeyler yap.. işte bu karşı tarafı smürmek olur.. gelelim arkadaşın dediğine.. şuan elimde vb yok yapabileceğim ayrıca pek zamanım da yok, kodları da baya bi uzun olur... o yüzden hazır bi kod buldum.. bunu kullanarak dosya ve klasrlerde arama yapabilirsin.. işte sende kodları değiştirerek kendine zel olarak aranan klasrlerin isimlerini listboxa eklersin.. klasr ve dosyaların hepsi bittikten sonra da listboxu kaydedebilirsin.. şuna bak bakalım çalışıyor mu? eğer olmazsa www.planet-source-code.com a girip arama yapabilrisin.. orda aşağı yukarı senin istediğine yakın hazırkodu bulabilirsin.. takıldığın yer olursa pm den bana ulaş.. ' 'Dosya yada klasr araması, listelemesi yapmak için kodlarOption Explicit' Brought to you by:' Brad Martinez' btmtz@aol.com' http://members.aol.com/btmtz/vb' Currently selected option buttonDim m_wCurOptIdx As IntegerPrivate Sub Form_Load Dim wIdx As Integer, nFolder As LongDim sPath As String MAX_PATH ' 260Dim IDL As ITEMIDLISTMove 0.5, 0.5pic16Icon. AutoRedraw = True ' this is a demo... pic32Icon. AutoRedraw = True' Loads the labels with the respective' system folder's path For wIdx = 1 To 17nFolder = GetFolderValue ' Fill the item id list with the pointer of each folder item, rtns 0 on successIf SHGetSpecialFolderLocation = NOERROR Then' Get the path from the item id list pointer, rtns True on successIf SHGetPathFromIDList Then' Display the path in the respective labellabFolderPath = Left$(sPath, InStr - 1)End IfElse' The folder item doesn't exist, disable it's checkboxoptFolder . Enabled = FalseEnd IfNextEnd SubPrivate Function GetFolderValue As Long' Returns the value of the system folder constant specified by wIdx' See BrowsDlg. bas for the system folder nFolder values' The DesktopIf wIdx < 2 ThenGetFolderValue = 0' Programs Folder --> Start Menu FolderElseIf wIdx < 12 ThenGetFolderValue = wIdx' Desktop Folder --> ShellNew FolderElse ' wIdx >= 12GetFolderValue = wIdx + 4End IfEnd FunctionPrivate Sub optFolder_Click ' Save the current option button indexm_wCurOptIdx = IndexEnd SubPrivate Function GetReturnType As LongDim dwRtn As LongIf chkRtnType(0) Then dwRtn = dwRtn Or BIF_RETURNONLYFSDIRSIf chkRtnType(1) Then dwRtn = dwRtn Or BIF_DONTGOBELOWDOMAIN' If chkRtnType(2) Then dwRtn = dwRtn Or BIF_STATUSTEXT ' callback onlyIf chkRtnType(3) Then dwRtn = dwRtn Or BIF_RETURNFSANCESTORSIf chkRtnType(4) Then dwRtn = dwRtn Or BIF_BROWSEFORCOMPUTERIf chkRtnType(5) Then dwRtn = dwRtn Or BIF_BROWSEFORPRINTERGetReturnType = dwRtnEnd FunctionPrivate Sub cmdBrowse_Click Dim BI As BROWSEINFODim nFolder As LongDim IDL As ITEMIDLISTDim pIdl As LongDim sPath As StringDim SHFI As SHFILEINFOWith BI' The dialog's owner window... hOwner = Me. hWnd' Set the Browse dialog root foldernFolder = GetFolderValue ' Fill the item id list with the pointer of the selected folder item, rtns 0 on success' ' If this function fails because the selected folder doesn't exist,' . pidlRoot will be uninitialized & will equal 0 ' and the root will be the Desktop.' DO NOT specify the CSIDL_ constants for. pidlRoot!!!!' The SHBrowseForFolder call below will generate a fatal exception' if the folder indicated by the CSIDL_ constant does not exist!!' If SHGetSpecialFolderLocation = NOERROR Then. pidlRoot = IDL. mkid. cbEnd If' Initialize the buffer that rtns the display name of the selected folder. pszDisplayName = String$(MAX_PATH, 0)' Set the dialog's banner text. lpszTitle = "Browsing is limited to: " & optFolder . Caption' Set the type of folders to display & return' -play with these option constants to see what can be returned. ulFlags = GetReturnType End With' Clear previous return vals before the' dialog is shown txtPath = ""txtDisplayName = ""pic16Icon. Picture = LoadPicture ' clears prev iconpic32Icon. Picture = LoadPicture ' Show the Browse dialogpIdl = SHBrowseForFolder ' If the dialog was cancelled... If pIdl = 0 Then Exit Sub' Fill sPath w/ the selected path from the id list' sPath = String$(MAX_PATH, 0)SHGetPathFromIDList ByVal pIdl, ByVal sPath' Display the path and the name of the selected foldertxtPath = Left(sPath, InStr - 1)txtDisplayName = Left$(BI. pszDisplayName, _InStr - 1)' Get the 16x16 icon info from the id list using the pidlSHGetFileInfo ByVal pIdl, 0&, SHFI, Len , _SHGFI_PIDL Or SHGFI_ICON Or SHGFI_SMALLICON' The 16x16 icon handle rtnd in SHFI. hIcon is stretched to 32x32.' DrawIconEx will shrink the icon per it's cxWidth & cyWidth paramsDrawIconEx pic16Icon. hdc, 0, 0, SHFI. hIcon, 16, 16, 0, 0, DI_NORMALpic16Icon. Refresh' Get the 32x32 icon info from the id listSHGetFileInfo ByVal pIdl, 0&, SHFI, Len , _SHGFI_PIDL Or SHGFI_ICON' SHFI. hIcon is OK here so DrawIcon can be usedDrawIcon pic32Icon. hdc, 0, 0, SHFI. hIconpic32Icon. Refresh' Frees the memory SHBrowseForFolder ' allocated for the pointer to the item id listCoTaskMemFree pIdlEnd SubPrivate Sub cmdInfo_Click MsgBox "If a root folder Option Button has no correspnoding folder location " & _"displayed, then no Registry entry exists for it under:" & vbCrLf & vbCrLf & _"HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders" & _vbCrLf & vbCrLf & "As well, if a root folder Option Button is disabled, the folder " & _"does not exist in your file system and cannot be dispalyed as the root in the Browse dialog."End SubPrivate Sub cmdQuit_Click Unload MeEnd SubPrivate Sub Form_Unload Set Form1 = NothingEndEnd Sub ' Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

ertan adlı mürid uğraşıyordu bununla ilgili fakat baya değerli bir kod bu. Tmamen hazır oalrak vereceğini sanmıyorum :) instagram.com/yks. rehberlik >> YKS Rehberlik ve Eğitim Koçluğu için takipte kalın ;)