Samkopier mange filer

Du kan lave det i VBScript. Har du forstand på det?

nope

Man kan gøre det med følgende i en .bat fil:
@echo off
Set Counter=0
echo.>Dest0.log
for /F "tokens=*" %%I in ('dir /B *.txt') do call :Process "%%I"
goto :eof

:Process
set /A Next=%counter% + 1
copy /B Dest%Counter%.log + %1 Dest%Next%.%log
del Dest%Counter%.log
set Counter=%Next%

Det forudsætter at der IKKE findes nogle destxxx.log filer i mappen.
Det forudsætter at alle tekst filerne hedder .txt (og ikke .log)
Resultatet kommer til at hedde Dest19999.log hvis du har 20000 .txt filer.

Jeg tror egentlig man kan i en kommandoprompt med en for løkke, men kan ikke lige huske hvordan!

bertelbrander> ah tak, jeg prøver lige.

Det virker. Smid lige et svar bertelbrander så får du point.

Tak for hjælpen.

//nordclc

Jeg samler ikke på point.

For langsom, men dette skal gemmes som en vbs-fil:


option explicit

Dim objFSO, strPath, objFolder, objTs, objFile, strScriptPath, strContentSamlet, strSep

call RunIt

Sub RunIt

    strPath = OpenFile("Alle filer (*.mdb)|*.*", "", "Vælg én af filerne")
   
    strScriptPath = WScript.ScriptFullName
    strScriptPath = Left(strScriptPath, InStrRev(strScriptPath, "\"))

    if strPath = vbNullString then
        MsgBox("Du skal vælge en fil")
        Exit Sub
    else
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFolder = objFSO.GetFolder(Left(strPath, InStrRev(strPath, "\")))
       
        strSep = VbCrLf & "----------" & VbCrLf
       
        for each objFile in objFolder.Files
            Set objTs = objFile.OpenAsTextStream(1, -2)
            strContentSamlet = strContentSamlet & objTs.ReadAll & strSep
        next
       
        objFSO.CreateTextFile strScriptPath & "SamletFil.txt"
        Set objFile = objFSO.GetFile(strScriptPath & "SamletFil.txt")
        Set objTs = objFile.OpenAsTextStream(2, -2)
        objTs.Write strContentSamlet
        objTs.Close

        MsgBox("Færdig!")
       
        Set objFSO = Nothing
        Set objFolder = Nothing
        Set objFile = Nothing
        Set objTs = Nothing
    end if
End Sub

Function OpenFile(strFilter, strDirectory, strTitle)
    Const cdlOFNExplorer = &H80000
    Const cdlOFNFileMustExist = &H1000
    Const cdlOFNHideReadOnly = &H4
    Const cdlOFNPathMustExist = &H800

    Dim objCD

    Set objCD = CreateObject("MSComDlg.CommonDialog")

    With objCD
        .MaxFileSize = 260
        .Flags = cdlOFNExplorer AND cdlOFNFileMustExist AND cdlOFNHideReadOnly AND cdlOFNPathMustExist

        .DialogTitle = strTitle
        .InitDir = strDirectory
        .Filter = strFilter

        .ShowOpen

        OpenFile = .FileName
    End With

    Set objCD = nothing  ' clean up


End Function

bertelbrander> pjat med dig, kom så med et svar ;o)
ldanielsen> jeg tror du har ret, men da det kun skal foregå en enkelt gang, kan jeg leve med det. Men godt du postede VB svaret, hvis andre kan bruge det.

//nordclc

Kom til at tænke på, man kan godt gøre det med én linie i en kommando prompt:
for /F "tokens=*" %I in ('dir /B *.txt') do type "%I" >>Dest.log

Det kræver at dest.log ikke findes eller er tom når man starter.

Du har ret, og det virker. Kom så med det svar eller jeg kilder dig ;o)

Mvh Claus

bertelbrander> Sidste mulighed ellers får ldanielsen de 30 points!

P.S. Skriv lige så jeg ved du har læst beskeden.

Jeg har set beskeden, og jeg samler stadig ikke på point.

Det er så i orden, men tusind tak for hjælpen, du sparede mig for 1 hel dags arbejde ;o)

ldanielsen> så mangler jeg et svar fra dig

Svar