google搜索 站内搜索                 软件测试门户 | 软件测试培训 | 文章资料精选 | 软件测试论坛 | 测试解决方案 | 软件测试博客 | 测试招聘求职 
打印

[求助] 请教各位大虾,一个问题

请教各位大虾,一个问题


Dim fso, MyFile,f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.CreateFolder("c:\\New Folder")
   CreateFolderDemo = f.Path
   Set MyFile = fso.CreateTextFile(CreateFolderDemo & "testfile.txt", ,True)
   MyFile.WriteLine("This is a test.")
   MyFile.Close
小弟现在想在创建的文件夹下再创建一个文件,但是我不想直接写路径,而是想用上面的一个创建的文件夹的路径,请问我该怎么写啊,我的代码就是上面的那段,请各位给小弟一点指导。
小弟先谢谢了

TOP

你写的很好呀,只要把
Set MyFile = fso.CreateTextFile(CreateFolderDemo & "testfile.txt", ,True)
改成
Set MyFile = fso.CreateTextFile(CreateFolderDemo & "\\testfile.txt", ,True)
就好了,不然他会建立一个New Foldertestfile.txt文件,而不是在New Folder下建立testfile.txt
                       chill

TOP

 
当前时区 GMT+8, 现在时间是 2008-12-5 10:05Copyright(C)上海博为峰软件技术有限公司 2001-2007 电话:021-64471599-8017
当您在访问网站、论坛及博客过程中遇到问题时可发送email:webmaster@51testing.com或发送论坛短信至管理员风在吹