| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1481 人关注过本帖, 1 人收藏
标题:VB6對文件夾的操作!
只看楼主 加入收藏
宋政林
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2020-9-16
结帖率:100%
收藏(1)
已结贴  问题点数: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册: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
等 级:新手上路
帖 子:26
专家分:0
注 册:2020-9-16
收藏
得分:0 
回复 楼主 宋政林
老師,可能我沒有描述清楚。


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


1,C:\result裡面每天會自動建立當天文件夾(2021-11-15),如何把輸入進去的序號:12345678, 每天的輸入序號對應寫入到每天的日期裡面(要求格式為:12345678.txt),謝謝。
2021-11-16 07:26
apull
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:三体星系
等 级:版主
威 望:216
帖 子:1507
专家分:9241
注 册: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
等 级:新手上路
帖 子:26
专家分: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
等 级:新手上路
帖 子:26
专家分:0
注 册:2020-9-16
收藏
得分:0 
回复 5楼 apull
1,通過測試驗證已OK,
图片附件: 游客没有浏览图片的权限,请 登录注册

會每天生成一個文件夾,自動命名為當天的日期,序號輸入框輸入進去的內容為.txt的命名。
2021-11-16 10:39
快速回复:VB6對文件夾的操作!
数据加载中...
 
   



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

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