VB6對文件夾的操作！

宋政林发布于 2021-11-15 21:49， 1687 次点击

Hi 各位老闆好,1，在如下序號輸入框裡面輸入序號：1234567后，會在C:\result目錄下建立當日的日期,無就建立，有就不建立（這個部分已經完成）。
2,如果建立2021-11-15文件夾之後，在裡面寫入序號：:134567.txt，每天的輸入序號對應寫入到每天的日期裡面,謝謝。

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2021-11-15 21:51编辑过]

6 回复

约定的童话2021-11-16 07:09

Open "C:\result\134567.txt" & For Output As #1 'Aspend
Print #1, text2.text
Close #1

宋政林2021-11-16 07:25

回复楼主宋政林

老師,可能我沒有描述清楚。

1,C:\result裡面每天會自動建立當天文件夾（2021-11-15），如何把輸入進去的序號：12345678，每天的輸入序號對應寫入到每天的日期裡面（要求格式為：12345678.txt）,謝謝。

宋政林2021-11-16 07:26

回复 2楼约定的童话

apull2021-11-16 08:32

按你说的1,文件夹的建立已经实现了，文件夹路径存到sPath。
那么输出文件就按2楼的就行了

sFile=sPath & "\" & text1.text & ".txt"
Open sFile For Output As #1 'Aspend
Print #1, text2.text
Close #1

[此贴子已经被作者于2021-11-16 08:33编辑过]

宋政林2021-11-16 09:13

回复 5楼 apull

老師，你好，按如下方式調試時找不到路徑，

只有本站会员才能查看附件，请登录

  需麻煩您幫忙確認。C:\result\2021-11-16   謝謝
    sPath = curDir '文件路徑存在sPath裡面
    sFile = sPath & "\" & text1.Text & ".txt"
Open sFile For Output As #1 'Aspend
      Print #1, text2.Text
Close #1

宋政林2021-11-16 10:39

回复 5楼 apull

1,通過測試驗證已OK,

只有本站会员才能查看附件，请登录

會每天生成一個文件夾,自動命名為當天的日期，序號輸入框輸入進去的內容為.txt的命名。