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

• #6552 ulrik19 tag A_ScHuLcZ #6551

  Új Válasz 2010-03-10 11:24:28 #6552

  Ú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

  

  ulrik19

  tag

  válasz A_ScHuLcZ #6551 üzenetére

  itt a makró hozzá:
  Az adott sheet B2-be kell írni a kiválasztott könyvtár nevét, pl. c:\ (fontos, hogy \ legyen a vége). A kód az A3-tól lefelé soronként kiírja a fileokat és könyvtárakat (de azokat nem válogatja szét, abc sorrendben nézi)

  Public Sub dirlist()
  Dim konyvtar As String
  Dim fajlnev As String
  Dim i As Integer
  
  konyvtar = Cells(1, 2)
  
  i = 3
  Range("A3:A65000").Clear
  fajlnev = dir$(konyvtar & "*.*", vbDirectory)
  Do While (Len(fajlnev) > 0)
  ' See if we should skip this file.
  If Not (fajlnev = ".") Or (fajlnev = "..") Then
  Cells(i, 1) = fajlnev
  i = i + 1
  End If
  
  ' Get the next file.
  fajlnev = dir$()
  Loop
  End Sub

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