事務職員のPower Automate Desktopやってみた～【コードを共有します】今月フォルダ新規作成→先月フォルダからファイルコピー・名前変更編～

事務職員のPower Automate Desktopやってみた～今月フォルダ新規作成→先月フォルダからファイルコピー・名前変更編～で紹介したフローのコードを共有します。
以下コードをコピーし、ご自身のフローに貼り付けてご利用ください。
また、フローの共有方法は↓こちらを参考にしてください。
事務職員のPower Automate Desktopやってみた～フローのコピー・他人との共有編～

0.はじめに
1.フローの概要
2.メインフローのコード
3.サブフロー1：hensu（日時の変数のフロー）のコード
4.サブフロー2：foldermake（フォルダを新規作成するフロー）のコード
5.サブフロー3：filecopy（データのコピー・名前変更のフロー）のコード
6.イメージ

0.はじめに

　※フォルダは『・・・\PADてすと\R3\2月』のように年度，月で管理しています。
　※フォルダパスにおけるユーザー名の部分は●●にしています。
　　コピペ後、フォルダパスはご自身の環境に合わせて適宜変更してください。
　※ファイルは『てすと4.2.1』のように名前，日付（Y.M.D)としています。

1.フローの概要

　本フローはメインフローと３つのサブフローで構成していますので、
　それぞれのフローごとにコピペしてください。
　　・メインフロー：Main
　　・サブフロー１：hensu（日時の変数のフロー）
　　・サブフロー２：foldermake（フォルダを新規作成するフロー）
　　・サブフロー３：filecopy（データのコピー・名前変更のフロー）

2.メインフローのコード

以下３行をコピペしてください。メインフローのみで、サブフローが無いためエラーが表示されますが、
以降のサブフローを作成すれば解消されるので、次に進んでください。
CALL hensu
CALL foldermake
CALL filecopy

3.サブフロー1：hensu（日時の変数のフロー）のコード

日時の変数フローは、以下記事で公開しております。
こちらからコピーしてください。
officeworker365.hatenablog.com

4.サブフロー2：foldermake（フォルダを新規作成するフロー）のコード

/# ★★★★★★★★★★★★
★ 今月フォルダを作成 ★
★★★★★★★★★★★★#/
IF (Folder.IfFolderExists.DoesNotExist Path: $'''C:\\Users\\●●\\Desktop\\PADてすと\\%Rnendoreiwatext%''') THEN
Folder.Create FolderPath: $'''C:\\Users\\●●\\Desktop\\PADてすと''' FolderName: Rnendoreiwatext Folder=> NewFolder
END
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{LWin}({R})''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''C:\\Users\\●●\\Desktop\\PADてすと\\%Rnendoreiwatext%''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Return}''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({Shift}({N}))''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: True
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: monthgatutext DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Enter}''' DelayBetweenKeystrokes: 10 SendTextAsHardwareKeys: False

5.サブフロー3：filecopy（データのコピー・名前変更のフロー）のコード

/# ★★★★★★★★★★★★★★★★★★
★ 先月データを今月フォルダにコピぺ ★
★★★★★★★★★★★★★★★★★★#/
/# ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
☆４月なら前年度を取得，それ以外なら今年度を取得する　　 ☆
☆（４月処理時に前年度３月フォルダからデータをコピーするため） ☆
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆#/
IF month = 4 THEN
DateTime.Add DateTime: CurrentDateTimenendoreiwa TimeToAdd: -1 TimeUnit: DateTime.TimeUnit.Years ResultedDate=> nendoreiwacopyyou
END
IF month <> 4 THEN
DateTime.Add DateTime: CurrentDateTimenendoreiwa TimeToAdd: 0 TimeUnit: DateTime.TimeUnit.Years ResultedDate=> nendoreiwacopyyou
END
SET nendoreiwacopyyouYear TO nendoreiwacopyyou.Year
Text.FromNumber Number: nendoreiwacopyyouYear DecimalPlaces: 0 UseThousandsSeparator: False FormattedNumber=> nendoreiwacopyyouYeartext
Text.JoinText.Join List: $'''R%nendoreiwacopyyouYeartext%''' Result=> RnendoreiwacopyyouYeartext
/# ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
☆ コピーするデータ名の定義付け ☆
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆#/
Text.JoinText.Join List: $'''てすと%sengetuhajimereiwaYMDtext%.xlsx''' Result=> testsengetuhajimereiwaYMDtextxlsx
Text.JoinText.Join List: $'''てすと%gessyobireiwaYMDtext%''' Result=> testgessyobireiwaYMDtext
/# ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
☆ データのコピー，日付を今月の日付に変更☆
☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆#/
File.Copy Files: $'''C:\\Users\\●●\\Desktop\\PADてすと\\%RnendoreiwacopyyouYeartext%\\%sengetugatutext%\\%testsengetuhajimereiwaYMDtextxlsx%''' Destination: $'''C:\\Users\\●●\\Desktop\\PADてすと\\%Rnendoreiwatext%\\%monthgatutext%''' IfFileExists: File.IfExists.DoNothing CopiedFiles=> CopiedFiles
File.RenameFiles.Rename Files: $'''C:\\Users\\●●\\Desktop\\PADてすと\\%Rnendoreiwatext%\\%monthgatutext%\\%testsengetuhajimereiwaYMDtextxlsx%''' NewName: testgessyobireiwaYMDtext KeepExtension: True IfFileExists: File.IfExists.DoNothing RenamedFiles=> RenamedFiles