フォルダのヘルプ

応答1# ->にスキップ

3 #

HiteshP 2020-03-25 21:50

フレデリックに感謝します.より簡単な解決策は、現在のフォルダにあるスクリプトをクリックすることだと思います.

応答3# ->にスキップ

5 #

Frederi 2020-03-25 22:21

OK、あなたが仕様を捨てるならば、私は適切なスクリプトを投稿します.これを決定する必要があります.

• フォルダの接頭辞があるべきですか? HP?
• またはプレフィックスの入力を求められますか?
• スクリプトが作成されたフォルダ数?次の利用可能な数を使用して、ただ1つ?
• スクリプトは次のフォルダを作成したり、他の何かをしたりするだけですか?

応答5# ->にスキップ

8 #

HiteshP 2020-03-25 23:53

はい、プレフィックスは「HP」になり、次に数字になります.HP1 HP2HP3などはプレフィックスの入力を求められるのが理にかなっています.

最後の番号の後にたとえば20のバッチを作成しますが、フォルダにはファイルも含まれています.空白のスプレッドシートも.

応答8# ->にスキップ

9 #

Frederi 2020-03-25 23:59

「フォルダにファイルが含まれている」とはどういう意味ですか?あなたも彼らにコピーされたいですか?あなたは絶対に正確である必要があります.あいまいな声明の余地はありません！

応答9# ->にスキップ

10 #

HiteshP 2020-03-26 00:21

はい、ファイルが含まれているので、コピーする必要があります-正確ではないことをお詫びします

応答10# ->にスキップ

11 #

Frederi 2020-03-26 00:51

以下のスクリプトを「CreateFolders.vbs」としてフォルダに貼り付けます..vbs拡張子は必須です.

スクリプトが正しく機能するには、フォルダ番号が3桁である必要があることに注意してください.HP001、HP002.

'

---

-
'-名前が「HP」で始まるフォルダを調べます
'-「1つ」を「新しい」「1つ」を「最大」の「数」
「コピー」で取得します.毎回1回
「数字は3桁でなければならないことに注意してください」.HP001、HP002
'25.3.2020 FNL
'

---

-
Set oFSO=CreateObject( "Scripting.Filesystemobject")
Set oWshShell=CreateObject( "Wscript.Shell")
Set oFolderList=CreateObject( "System.Collections.ArrayList")
p=InStrRev(WScript.ScriptFullName、 "\")
Set oFolder=oFSO.GetFolder(Left(WScript.ScriptFullName、
For Each oSubFldr In oFolder.SubFolders
If UCase(Left(oSubFldr.Name、2))= "HP" ThenMsgBox「少なくともフォルダから開始する必要があります！」、48、「Create」
List(Folders」

ListFolders "

ListFolders"











.count-1)、 ".")(0)
iLastNum=Mid(sLastName、3)* 1
For i=iLastNum + br i00 "R<1 To iLastNum i、3)
次へ

応答2# ->にスキップ

4 #

HiteshP 2020-03-25 21:59

ダレンのクイックレスポンスに感謝します.他のフォルダを修正するのではなく、同じコンテンツで追加のフォルダを作成します.現時点では、すべてを個別にコピーして貼り付けるので、1,2,3を使い果たしたら、 4,5,6などを作る

応答6# ->にスキップ

7 #

HiteshP 2020-03-25 23:51

おかげで-これはうまくいくでしょうが、私のフォルダはそれらのそれぞれに特定のスプレッドシートを含む必要があります、