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...
