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

• #24912 Fferi50 Topikgazda air #24908

  Új Válasz 2015-01-07 09:46:54 #24912

  Ú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

  

  Fferi50

  Topikgazda

  válasz air #24908 üzenetére

  Szia!

  Az alábbi kis makrórészletet légy szíves betenni a dim sor után:
  With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = CurDir()
  If .Show Then
  ChDir (.SelectedItems(1))
  Else
  MsgBox "Nem választottál, kilépek a programból!", vbCritical :Exit Sub
  End If
  End With

  Így amikor elindítod a programot, kiválaszthatod, hogy melyik könyvtár adatait rakja össze (ez talán jobb is, mintha kívülről navigálnál, mert ez biztosan oda visz, ahova szeretnéd).
  Ha nem válaszottál könyvtárat, akkor nem megy tovább.

  Üdv.

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