Option Explicit

Dim luna,Fs
Set luna = CreateObject("Lunascape2.LunascapeAPI")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

Dim folderPath,folderTOD,newfolderName,datePath
' バックアップ日時の取得
    datePath = Year(Now) & "_" & Fmt(Month(Now),2) & Fmt(Day(Now),2) _
                & "_" & Fmt(Hour(Now),2) & Fmt(Minute(Now),2) 

    ' 数値の頭に0を付けて，任意の桁数の文字列にする
        Function Fmt( num, digit)
            Fmt = Right( String(digit, "0") & num, digit)
        End Function

'新しく作成するバックアップフォルダ名
    newfolderName = "Backup"

'バックアップフォルダのフルパス取得
    folderPath = Fs.BuildPath(luna.AppPath,newfolderName)
    folderTOD = Fs.BuildPath(folderPath,datePath)

' バックアップフォルダの確認＆作成
    If Fs.FolderExists(folderPath) Then
        If Fs.FolderExists(folderTOD) Then
        Else
            Fs.CreateFolder(folderTOD)
        End If
    Else
        Fs.CreateFolder (folderPath)
        Fs.CreateFolder (folderTOD)
    End If
    luna.MessageBox _
        "已在此处创建备份文件夹：" _
        & Chr(13) & folderTOD

' お気に入りをバックアップする
    Dim fileName
    fileName = Fs.BuildPath(folderTOD,"bak-MyLinks.ld2")

    luna.SaveFavorite(fileName)
    luna.MessageBox _
        "收藏夹备份已完成。" & Chr(13) & fileName

' 設定ファイル (Lunascape.ini) をバックアップする
    Dim sourcePath,targetPath
    sourcePath = Fs.BuildPath(luna.AppPath,"Luna.ini")
    targetPath = Fs.BuildPath(folderTOD,"bak-Luna.ini")

    If Fs.FileExists(sourcePath) Then
        Fs.CopyFile sourcePath,targetPath
        luna.MessageBox _
            "设置文件(Luna.ini)备份已完成。" _
            & Chr(13) & targetPath
    Else
        luna.MessageBox _
            "设置文件(Luna.ini)未找到。" & Chr(13) & _
            "无法备份设置文件。"
    End If

Set Fs = Nothing
Set luna = Nothing
