标题:VB6對文件夾的操作!
只看楼主
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
结帖率:100%
已结贴  问题点数:20 回复次数:6 
VB6對文件夾的操作!
Hi 各位老闆好,1,在如下序號輸入框裡面輸入序號:1234567后,會在C:\result目錄下建立當日的日期,無就建立,有就不建立(這個部分已經完成)
              2,如果建立2021-11-15文件夾之後,在裡面寫入序號::134567.txt, 每天的輸入序號對應寫入到每天的日期裡面,謝謝。



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

搜索更多相关主题的帖子: 操作 txt VB6 result 建立 
2021-11-15 21:49
约定的童话
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:47
帖 子:190
专家分:1061
注 册:2021-8-1
得分:10 
Open "C:\result\134567.txt" &  For Output As #1 'Aspend
      Print #1, text2.text
Close #1
2021-11-16 07:09
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
得分:0 
回复 楼主 宋政林
老師,可能我沒有描述清楚。


1,C:\result裡面每天會自動建立當天文件夾(2021-11-15),如何把輸入進去的序號:12345678, 每天的輸入序號對應寫入到每天的日期裡面(要求格式為:12345678.txt),謝謝。
2021-11-16 07:25
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
得分:0 
回复 2楼 约定的童话
老師,可能我沒有描述清楚。


1,C:\result裡面每天會自動建立當天文件夾(2021-11-15),如何把輸入進去的序號:12345678, 每天的輸入序號對應寫入到每天的日期裡面(要求格式為:12345678.txt),謝謝。
2021-11-16 07:26
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:185
帖 子:1404
专家分:8479
注 册:2010-3-16
得分:10 
按你说的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 08:32
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
得分:0 
回复 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 09:13
宋政林
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2020-9-16
得分:0 
回复 5楼 apull
1,通過測試驗證已OK,

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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-507529-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.073495 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved