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

• #22648 slashing senior tag

  Új Válasz 2014-07-28 17:14:10 #22648

  Ú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

  

  slashing

  senior tag

  Mivel lehetne helyettesíteni az msgbox-ot? Nem elég az 1024 karakter amit kiíratnék vele. A lenti törlős makró megszámolja hányszor futott le és kiírja hogy hány fájl lett törölve majd kiírja egymás alá a fájlneveket.

  Sub DeletTxtFiles()
  Dim Filename, Pathname As String, ASN As String, loopcount As Integer, nevek As String
  ASN = ActiveSheet.Name
  Pathname = "q:\SPC 2010-2012-2013\Bosch\TXT\" & ASN & "\"
  Filename = Dir(Pathname & "*.txt")
  loopcount = 0
  Do While Filename <> ""
  nevek = Pathname & Filename & vbNewLine + nevek
  loopcount = loopcount + 1
  Application.StatusBar = " Türelem, dolgozom! A használatban lévő fájl: " & Pathname & Filename
  Kill Pathname & Filename
  Filename = Dir
  Loop
  
  MsgBox " Az alábbi " & loopcount & " fájl törlésre került:" & vbNewLine & vbNewLine & nevek
  Application.StatusBar = ""
  End Sub

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