Új hozzászólás Aktív témák

• #1028 wwlaci csendes tag ArchElf #1026

  Új Válasz 2009-10-31 09:07:25 #1028

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz ArchElf #1026 üzenetére

  Szia!
  Megpróbáltam és kiválóan működik.

  Köszönöm a segítséget.
  üdv.

• #1027 wwlaci csendes tag ArchElf #1026

  Új Válasz 2009-10-31 08:46:18 #1027

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz ArchElf #1026 üzenetére

  köszi!
  megpróbálom a" Not in" verziót hátha működik

  üdv.

• #1025 wwlaci csendes tag

  Új Válasz 2009-10-26 16:34:59 #1025

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  Sziasztok!
  Egy kis segítség kellene.

  van két táblám egy access adatbázisban.
  Az egyik tábla (t1) tartalmazza az összes adatot ( mezőnév: elérés)
  a másik tábla (t2) ( más mezőnéven: helye) tartalmaz néhány olyan adatot is, amelyet
  a másik tábla (t1) elérés mezője..
  Nekem egy olyan kigyűjtés kell (visual st2005) amely csak azokat az adatokat jeleníti meg
  az első (t1) táblából, amelyek NEM SZEREPELNEK a t2 táblában.

  próbáltam az inner join -t de nem volt nyerő

  nyit.CommandText = "select distinct osszes.eleres, helye from fotabla inner join osszes on(osszes.eleres not like fotabla.helye )"

  ha valaki tudna segíteni, előre is köszi..

• #1024 wwlaci csendes tag Gregorius #1023

  Új Válasz 2009-10-25 08:31:46 #1024

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1023 üzenetére

  Így tényleg működik. Köszönöm a tippeket és a segítséget.

• #1022 wwlaci csendes tag Gregorius #1020

  Új Válasz 2009-10-24 13:20:50 #1022

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1020 üzenetére

  meg a button_clickben lévő stringre is

• #1021 wwlaci csendes tag Gregorius #1020

  Új Válasz 2009-10-24 10:32:03 #1021

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1020 üzenetére

  Szia.
  az alábbi kódot bemásoltam egy modulba:
  Public Sub FindFiles(ByVal path As String, ByVal pattern As String, ByVal result As Collection(Of String))
  Try
  For Each s As String In System.IO.Directory.GetDirectories(path, pattern)
  FindFiles(s, pattern, result)
  Next
  For Each s As String In System.IO.Directory.GetFiles(path, pattern)
  result.Add(s)
  Next
  Catch ex As UnauthorizedAccessException
  End Try
  End Sub

  Az alábbit, pedig egy button-click-be

  Dim res As New Collection()
  FindFiles("C:\", "*.avi", res)
  For Each s As String In res
  ListBox1.Items.Add(s)
  Next

  a modulban lévő (of string)-re azt mondja:
  Microsoft.VisualBasic.Collection has no type parameters and so cannot have type arguments.

• #1019 wwlaci csendes tag Gregorius #1018

  Új Válasz 2009-10-23 09:52:16 #1019

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1018 üzenetére

  Szia!

  megpróbáltam az alábbit:

  For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
  My.Computer.FileSystem.Drives.Item(1).ToString, _
  FileIO.SearchOption.SearchAllSubDirectories, "*.avi")
  ListBox1.Items.Add(foundFile)
  Next

  az a gond csak vele , hogy a minden meghajtón jelenlévő
  System Volume Information
  könyvtárnál kiakad, mert ezt nem tudja megnyitni.

  Ha a My.Computer.FileSystem.Drives.Item(1).ToString, helyett
  egy deklarált könyvtárat pl.: "h:\filmek" írok be, akkor azt
  nagyon szépen végigolvassa.
  2. kérdés
  Hogyan tudok kizárni meghajtót , pl a "c:" -t, vagy könyvtárakat (pl.: Windows),
  hogy azokat ne olvassa be.

  előre is köszi.

• #1017 wwlaci csendes tag Gregorius #1014

  Új Válasz 2009-10-22 18:23:28 #1017

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1014 üzenetére

  Szia!
  találtam egy ilyen megoldást, de nem tudom, hogyan tudom
  megjeleníteni ennek az eredményét listboxban.

  Imports System.Collections
  Imports System.IO
  Imports System
  Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  End Sub

  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

  End Sub
  End Class

  Public NotInheritable Class Directory
  Public Class RecursiveFileProcessor

  Public Overloads Shared Sub Main(ByVal args() As String)
  Dim path As String
  For Each path In args
  If File.Exists(path) Then
  ' This path is a file.
  ProcessFile(path)
  Else
  If System.IO.Directory.Exists(path) Then
  ' This path is a directory.
  ProcessDirectory(path)
  Else
  Console.WriteLine("{0} is not a valid file or directory.", path)
  End If
  End If
  Next path
  End Sub 'Main

  ' Process all files in the directory passed in, recurse on any directories
  ' that are found, and process the files they contain.
  Public Shared Sub ProcessDirectory(ByVal targetDirectory As String)
  Dim fileEntries As String() = System.IO.Directory.GetFiles(targetDirectory)
  ' Process the list of files found in the directory.
  Dim fileName As String
  For Each fileName In fileEntries
  ProcessFile(fileName)

  Next fileName
  Dim subdirectoryEntries As String() = System.IO.Directory.GetDirectories(targetDirectory)
  ' Recurse into subdirectories of this directory.
  Dim subdirectory As String
  For Each subdirectory In subdirectoryEntries
  ProcessDirectory(subdirectory)
  Next subdirectory

  End Sub 'ProcessDirectory

  ' Insert logic for processing found files here.
  Public Shared Sub ProcessFile(ByVal path As String)
  Console.WriteLine("Processed file '{0}'.", path)
  End Sub 'ProcessFile
  End Class 'RecursiveFileProcessor
  End Class

• #1016 wwlaci csendes tag wwlaci #1015

  Új Válasz 2009-10-22 18:21:07 #1016

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz wwlaci #1015 üzenetére

  Szia!
  találtam egy ilyen megoldást

• #1015 wwlaci csendes tag Gregorius #1014

  Új Válasz 2009-10-22 17:46:46 #1015

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1014 üzenetére

  köszi. megpróbálom

• #1013 wwlaci csendes tag Gregorius #1012

  Új Válasz 2009-10-22 14:53:58 #1013

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  válasz Gregorius #1012 üzenetére

  Szia!
  nem, nekem csak a filenevek kilistázására van szükségem,
  azaz a gép összes meghajtóján lévő összes könyvtárból.
  olyan fomában szeretném a listán látni, pl.: c:\alfa\kettes\film.avi

  köszi.

• #1011 wwlaci csendes tag

  Új Válasz 2009-10-22 14:11:52 #1011

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  wwlaci

  csendes tag

  Sziasztok!
  Visuál Studió 2005 Visuál Basic-ben utazok.
  Kérdésem, ha valaki tudna segíteni.
  Arra volna szükségem, hogy az általam megadott (többféle, pl. .avi .jpg .bmp ) kiterjesztésű összes filet
  egy gombnyomásra egy listára (listbox) gyűjtse

  Előre köszi a segítéget.

Új hozzászólás Aktív témák