以下的代码是在VB6.0中验证后可行的，可以建立日期、时间命名的文档，为什么在WINCC的VB中不能通过呢？
Dim d As String
Dim f As String
d = Format(Now(), "yyyy-mm-dd")
f = Format(Now(), "yyyymmdd-HH：nn：ss")
If Dir$("d:\DATA\" & d, vbDirectory) = "" Then
MkDir "D:\DATA\" & d '建文件夹
Else
MsgBox "文件夹存在"
End If
Open "D:\DATA" & "\" & d & "\" & f & ".txt" For Output As #1 '建文件
Print #1, "OK", "TIME"
Close #1
还请高手们指点指点
问题补充：
Dim d
Dim f
Dim FSO, msg, tt, ff, fldr, fldr1, myfile, ts
Dim file_name
Dim doc_name
Set f = HMIRuntime.Tags ("file_name")
Set d = HMIRuntime.Tags ("doc_name")
f = CStr(Year(tNow))&"-"&CStr(Month(tNow))&"-"&CStr(Day(tNow))''文件夹的名称
''file_name.value = d
''f.write
d = f &" "&CStr(Hour(tNow)) & "：" & CStr(Minute(tNow)) & "：" & CStr(Second(tNow)) ''文档的名称
''doc_name.value = f
''d.write
fldr = "d:" & "\" & "test" & "\" & f
fldr1 = "d:" & "\" & "test" & "\" & f & "\" & d & ".txt"
（建立文件夹和文档的内容省略）
以上是我验证过，并可以建立文件夹和文档。现在有个新问题，我在界面建立了输入输出对话框，关联文件夹名和文档名，可是只有文件夹的名字显示出来，文档的没有，很奇怪，请高手们指点。（文档的输入输出对话框，如果关联别的变量，可以显示别的变量名）（附图）
图片说明：
最佳答案
WinCC里的脚本是VBS，VBS里有些是不支持的，相关文件操作一般用FSO对象来实现
你可以搜索一下VBS里相关操作，网上很多的
提问者对于答案的评价：
网上搜索VBS对文件夹的操作，让我顺利的实现了项目要求，谢谢youhm指给我方向。关于我问题补充的情况，其实两个变量我都没有写入，是我程序的问题，已解决~。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc252162.html
微信扫一扫 
支付宝扫一扫