保存したwebサイトの名前を短縮するバッチを教えてください。 ブラウザーはInter...

保存したwebサイトの名前を短縮するバッチを教えてください。
ブラウザーはInternetExplorer と Firefox を使っています。
webサイトを名前をつけて保存しました。

名前は自分で付けたものではなく、保存の際に勝手に付けられたものです。
保存先を見てみると .html .htm .files _files といったファイルやフォルダーがあります。
ブラウザーによって付けられる拡張子が微妙に異なります。
名前の方はと言えば、とても長い名前のものもあります。
それだと 別のフォルダーにコピーしようとすると名前が長すぎるという理由でコピーが中断してしまいます。
名前を７０文字までにすれば問題なくコピーできることがわかりました。
ただ.html ファイルと .filesフォルダーの名前は同じにしておかないといけないようです。
Firefox の場合は .htmファイルと _files フォルダーの名前を同じにしないといけません。
拡張子はそのままで、タイトル名だけ頭から７０文字だけ採用して
それを.html ファイルと .filesフォルダー
または .htmファイルと _files フォルダーの
名前部分の新しい名前にするバッチを教えてください。
下記のバッチを使ってみましたがうまくいきません。
名前が短くならないんです。
どこが悪いのでしょうか？

@echo off

setlocal enabledelayedexpansion

for %%i in (*.htm) do (
set j=%%i
set k=!j:~0,-4!
set l=!j:~0,70!
ren "%%i" "!l!.htm"
ren "!k!_files" "!k:~0,70!_files"
ren "!k!.files" "!k:~0,70!.files"
)

for %%i in (*.html) do (
set j=%%i
set k=!j:~0,-5!
set l=!j:~0,70!
ren "%%i" "!l!.html"
ren "!k!_files" "!k:~0,70!_files"
ren "!k!.files" "!k:~0,70!.files"
)