-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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