Fatal编程技术网
  • vb6/
  • Vb6 将格式化的当前日期添加到文件名

Vb6 将格式化的当前日期添加到文件名

vb6

Vb6 将格式化的当前日期添加到文件名,vb6,Vb6,我想使用vb6.0代码压缩文件。下面的代码实际上是在执行压缩部分 如何将当前日期添加到文件名 Sub ZipAFile(filename, filepath, Optional outputFileName, Optional outputfilepath) Dim d As String filename = ABC.xls filepath = App.Path & "\" & "New_Folder\" d = Date If R

我想使用vb6.0代码压缩文件。下面的代码实际上是在执行压缩部分

如何将当前日期添加到文件名

Sub ZipAFile(filename, filepath, Optional outputFileName, Optional outputfilepath)

    Dim d As String
    filename = ABC.xls
    filepath = App.Path & "\" & "New_Folder\"
    d = Date

    If Right(filepath, 1) <> "\" Then filepath = filepath & "\"
    If IsMissing(outputFileName) Then
        outputFileName = Left(filename, InStr(1, filename, ".") - 1) & ".zip"
    Else
        outputFileName = Trim(outputFileName) & ".ZIP"
    End If
    If IsMissing(outputfilepath) Then
        outputfilepath = filepath
    Else
        outputfilepath = Trim(outputfilepath)
        If Right(outputfilepath, 1) <> "\" Then outputfilepath = outputfilepath & "\"
    End If
    Shell "C:\Program Files\7-Zip\7z.exe a """ & outputFileName & """ """ & outputfilepath

End Sub

子ZipAFile（文件名、文件路径、可选outputFileName、可选outputfilepath）
将d变暗为字符串
filename=ABC.xls
filepath=App.Path&“\”和“新建文件夹”
d=日期
如果正确（filepath，1）“\”则filepath=filepath&“\”
如果IsMissing（outputFileName），则
outputFileName=Left（文件名，InStr（1，文件名“.”-1）和“.zip”
其他的
outputFileName=修剪（outputFileName）&“.ZIP”
如果结束
如果是missing（outputfilepath），则
outputfilepath=文件路径
其他的
outputfilepath=Trim（outputfilepath）
如果正确（outputfilepath，1）“\”则outputfilepath=outputfilepath&“\”
如果结束
Shell“C:\Program Files\7-Zip\7z.exe a”“&outputFileName&”“&outputfilepath”
端接头
您可以使用以下功能更改日期的格式：

Sub ZipAFile(filename, filepath, Optional outputFileName, Optional outputfilepath)

    Dim d As String
    filename = ABC.xls
    filepath = App.Path & "\" & "New_Folder\"
    d = Format$(Now, "yyyymmdd") '// Change date formatting here

    If Right(filepath, 1) <> "\" Then filepath = filepath & "\"
    If IsMissing(outputFileName) Then
        outputFileName = Left(filename, InStr(1, filename, ".") - 1) & d & ".zip" '// Append your date string
    Else
        outputFileName = Trim(outputFileName) & d & ".ZIP" '// Append your date string
    End If
    If IsMissing(outputfilepath) Then
        outputfilepath = filepath
    Else
        outputfilepath = Trim(outputfilepath)
        If Right(outputfilepath, 1) <> "\" Then outputfilepath = outputfilepath & "\"
    End If
    Shell "C:\Program Files\7-Zip\7z.exe a """ & outputFileName & """ """ & outputfilepath

End Sub

子ZipAFile（文件名、文件路径、可选outputFileName、可选outputfilepath）
将d变暗为字符串
filename=ABC.xls
filepath=App.Path&“\”和“新建文件夹”
d=Format$（现在是“yyyymmdd”）//在此处更改日期格式
如果正确（filepath，1）“\”则filepath=filepath&“\”
如果IsMissing（outputFileName），则
outputFileName=Left（filename，InStr（1，filename，“.”-1）&d&“.zip”//附加日期字符串
其他的
outputFileName=Trim（outputFileName）&d&“.ZIP”//追加日期字符串
如果结束
如果是missing（outputfilepath），则
outputfilepath=文件路径
其他的
outputfilepath=Trim（outputfilepath）
如果正确（outputfilepath，1）“\”则outputfilepath=outputfilepath&“\”
如果结束
Shell“C:\Program Files\7-Zip\7z.exe a”“&outputFileName&”“&outputfilepath”
端接头
您可以使用以下功能更改日期的格式：

Sub ZipAFile(filename, filepath, Optional outputFileName, Optional outputfilepath)

    Dim d As String
    filename = ABC.xls
    filepath = App.Path & "\" & "New_Folder\"
    d = Format$(Now, "yyyymmdd") '// Change date formatting here

    If Right(filepath, 1) <> "\" Then filepath = filepath & "\"
    If IsMissing(outputFileName) Then
        outputFileName = Left(filename, InStr(1, filename, ".") - 1) & d & ".zip" '// Append your date string
    Else
        outputFileName = Trim(outputFileName) & d & ".ZIP" '// Append your date string
    End If
    If IsMissing(outputfilepath) Then
        outputfilepath = filepath
    Else
        outputfilepath = Trim(outputfilepath)
        If Right(outputfilepath, 1) <> "\" Then outputfilepath = outputfilepath & "\"
    End If
    Shell "C:\Program Files\7-Zip\7z.exe a """ & outputFileName & """ """ & outputfilepath

End Sub

子ZipAFile（文件名、文件路径、可选outputFileName、可选outputfilepath）
将d变暗为字符串
filename=ABC.xls
filepath=App.Path&“\”和“新建文件夹”
d=Format$（现在是“yyyymmdd”）//在此处更改日期格式
如果正确（filepath，1）“\”则filepath=filepath&“\”
如果IsMissing（outputFileName），则
outputFileName=Left（filename，InStr（1，filename，“.”-1）&d&“.zip”//附加日期字符串
其他的
outputFileName=Trim（outputFileName）&d&“.ZIP”//追加日期字符串
如果结束
如果是missing（outputfilepath），则
outputfilepath=文件路径
其他的
outputfilepath=Trim（outputfilepath）
如果正确（outputfilepath，1）“\”则outputfilepath=outputfilepath&“\”
如果结束
Shell“C:\Program Files\7-Zip\7z.exe a”“&outputFileName&”“&outputfilepath”
端接头
可以创建一个没有第三方软件的zip文件（在您的情况下是7zip），仅供参考

Sub zip_a_file(path_to_target As String, _
           file_with_extension_to_compress As String, _
           zip_file_path As String, _
           zip_file_name_without_extension As String)

Dim ZipFile
Dim o As Object
Dim d As String

'First, do a little bit of testing to see if the inputs are OK

If Right(path_to_target, 1) <> "\" Then
    path_to_target = path_to_target & "\"
End If

If Right(zip_file_path, 1) <> "\" Then
    zip_file_path = zip_file_path & "\"
End If

'Get the date and format it

d = Format(Now, "yyyymmdd")

'Create Empty Zip Package

ZipFile = zip_file_path & zip_file_name_without_extension & d & ".zip"
Open ZipFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1

'Do some zippin'

Set o = CreateObject("Shell.Application")
o.Namespace(ZipFile).CopyHere (path_to_target & file_with_extension_to_compress)

'Clean up

Set o = Nothing

End Sub

Sub-zip\u a\u文件（路径\u到\u目标为字符串_
扩展名为“”的文件“”压缩为字符串_
压缩文件路径为字符串_
zip\u文件\u名称\u不带扩展名（作为字符串）
暗拉链
作为对象的dimo
将d变暗为字符串
'首先，做一点测试，看看输入是否正常
如果正确（路径\到\目标，1）\，则
路径到目标=路径到目标&“\”
如果结束
如果正确（zip文件路径，1）“\”则
zip\u file\u path=zip\u file\u path&“\”
如果结束
'获取日期并格式化它
d=格式（现在为“yyyymmdd”）
'创建空的压缩包
ZipFile=zip\u文件路径和zip\u文件名，不带扩展名&d&“.zip”
打开ZipFile，输出为#1
打印#1、Chr$（80）&Chr$（75）&Chr$（5）&Chr$（6）&字符串（18,0）
关闭#1
“来点拉链”
Set o=CreateObject（“Shell.Application”）
o、 名称空间（ZipFile）.CopyHere（路径\到\目标和文件\扩展名\到\压缩）
“清理
设置o=无
端接头
可以创建一个没有第三方软件的zip文件（在您的情况下是7zip），仅供参考

Sub zip_a_file(path_to_target As String, _
           file_with_extension_to_compress As String, _
           zip_file_path As String, _
           zip_file_name_without_extension As String)

Dim ZipFile
Dim o As Object
Dim d As String

'First, do a little bit of testing to see if the inputs are OK

If Right(path_to_target, 1) <> "\" Then
    path_to_target = path_to_target & "\"
End If

If Right(zip_file_path, 1) <> "\" Then
    zip_file_path = zip_file_path & "\"
End If

'Get the date and format it

d = Format(Now, "yyyymmdd")

'Create Empty Zip Package

ZipFile = zip_file_path & zip_file_name_without_extension & d & ".zip"
Open ZipFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1

'Do some zippin'

Set o = CreateObject("Shell.Application")
o.Namespace(ZipFile).CopyHere (path_to_target & file_with_extension_to_compress)

'Clean up

Set o = Nothing

End Sub

Sub-zip\u a\u文件（路径\u到\u目标为字符串_
扩展名为“”的文件“”压缩为字符串_
压缩文件路径为字符串_
zip\u文件\u名称\u不带扩展名（作为字符串）
暗拉链
作为对象的dimo
将d变暗为字符串
'首先，做一点测试，看看输入是否正常
如果正确（路径\到\目标，1）\，则
路径到目标=路径到目标&“\”
如果结束
如果正确（zip文件路径，1）“\”则
zip\u file\u path=zip\u file\u path&“\”
如果结束
'获取日期并格式化它
d=格式（现在为“yyyymmdd”）
'创建空的压缩包
ZipFile=zip\u文件路径和zip\u文件名，不带扩展名&d&“.zip”
打开ZipFile，输出为#1
打印#1、Chr$（80）&Chr$（75）&Chr$（5）&Chr$（6）&字符串（18,0）
关闭#1
“来点拉链”
Set o=CreateObject（“Shell.Application”）
o、 名称空间（ZipFile）.CopyHere（路径\到\目标和文件\扩展名\到\压缩）
“清理
设置o=无
端接头
我的系统日期是什么意思？你能举一个例子吗？“我想在outputfilename中添加系统日期。但这并没有发生”-你为什么希望发生这种情况？如果你想这样做，你需要添加一些逻辑来产生结果。有点难以理解你想要什么。您将日期分配给变量“d”，但从未在代码示例中使用它。您的意思是在输出文件名中插入d吗？上面的代码给出了一个zip文件名ABC.zip，我想将zip文件名设为ABC 16/10/2014.zip。我尝试了outputFileName=Left（filename，InStr（1，filename，“.”-1）和d&“.zip”。但是没有成功。你说我的系统日期是什么意思？你能举一个例子吗？“我想在outputfilename中添加系统日期。但这并没有发生”-你为什么希望发生这种情况？如果你想这样做，你需要添加一些逻辑来产生结果。有点难以理解你想要什么。您将日期分配给变量“d”，但从未在代码示例中使用它。你的意思是在输出中插入d吗