大佬们，定义变量获取系统日期后，要怎样才可以把变量的内容写入... [复制链接]

Dim 账号路径 = "/storage/emulated/0/Pictures/账号.txt"
Dim 账号
Dim 当前
当前 = Date()
TracePrint 当前

For 12
     账号 = xdpub.自动获取账号(账号路径, "----",1,1 )
If 账号(0) = "已完成" Then
TracePrint "全部账号读取完毕~"
End If
TracePrint "第"&账号(2)+1&"个,账号:"&账号(0)&""
ShowMessage "登录第"&账号(2)+1&",个账号:"&账号(0)&""
Delay 1000
Dim 文本1= "/storage/emulated/0/Pictures/"&账号(0)&"膜拜.txt"
If Dir.Exist(文本1) = 1 Then
    TracePrint "文件存在"
Call File.Write("/sdcard/MobileAnjian/anjian.txt","当前")
    Else
    TracePrint "文件不存在"
File.Write (文本1)
Call File.Write("/sdcard/MobileAnjian/anjian.txt","当前")
End If
Next