Script til at lytte i mappe med??

Hvad skal det bruges til ??
Hvor skal output hen ??

//akj

Scriptet skal lytte i en mappe og alt efter hvad filerne starter med kopiere/flytte filen over i den rigtige mappe.. Mappen den skal kigge i fyldes med PDF'er fra Distilleren..

VB(script;A) eller noget ...

-- du har brug FileSystemObject

-- det kan også bruges fra Jscript ...

Så ville jeg lave det i vbs.

Dette script æmndrer f.eks filnavne til et fortløbende nummer med htm som endelse.

//akj

ssFDESKTOP = &H0 
ssFFLAGS  = &H1               
ssFTEXT    = "Omdøb filer i folder"

sSelectedPath = SelectFolder (ssFDESKTOP, ssFTEXT, ssFFLAGS)
If Len(sSelectedPath)=0 Then
    Wscript.quit
Else
    set fso=createobject("scripting.filesystemobject")
    thisfolder=sSelectedPath

i = inputbox("Start ved")
if not isnumeric(i) then
    msgbox("Du skal indtaste et tal !!")
    Wscript.quit
end if

        for each f in fso.getfolder(thisfolder).files
            f.name = i & ".htm"
            i = i + 1

        next

end if

Function SelectFolder(ssFROOT, ssFASK, ssFFLAGS)
  Set oSHA = CreateObject("Shell.Application")
  Set oSF = oSHA.BrowseForFolder(0,ssFASK,ssFFLAGS,ssFROOT)
  If Instr(TypeName(oSF),"Folder")<> 1 Then Exit Function
  For Each oItem in oSF.ParentFolder.Items
    If oItem.Name = oSF.title Then
      SelectFolder = oItem.path
      Exit Function
    End If
Next
SelectFolder = oSF.title
End Function

Man kan også lave det som et batch script. Følgende script finder alle .pdf filer i den mappe det er kørt fra og kopierer dem til et andet sted baseret på det første tegn i filnavnet.

<code>
@echo off
setlocal
for /F %%i in ('dir /B *.pdf') do call :do_it "%%i"

endlocal
goto :eof

:do_it
set xxx=%~1
set xxx=%xxx:~,1%
if [%xxx%]==[a] copy %~1 dest1& goto :eof
if [%xxx%]==[b] copy %~1 dest2& goto :eof
echo Unknown destination %~1
</code>

Bertelbrander >> Det er lige det jeg søger og det script er noget simplere end det, jeg har fået stukket i hånden..

Smid et svar for point

Takker...

Svar