Imports System.IO
创新互联是专业的富川网站建设公司,富川接单;提供成都网站建设、做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行富川网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Dim dir As New IO.DirectoryInfo("F:\ggg")
Me.Text = dir.CreationTime
1、如果要设置时间变量应该这样:
Dim a As Date = Date.FromOADate(24 / 9 / 2010)
2、Sub SaveSetting(ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)
此函数只能在注册表的“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\”创建应用程序的参数设置,这个函数是从VB6继承过来的,是为了升级vb6代码而使用的。函数中的AppName为项目名,Section为节点,Key为键名,Setting为键值。例如SaveSetting("MyName","Section1","MainKey","Settingvalue")将会在“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyName”创建一个节点"Section1",并在Section1下创建一个键名为"MainKey",值为"Settingvalue"的键。
至于如何保存RadioButton的值,可以先用"CStr"函数或"CInt"函数将RadioButton是否被选中的Boolean值转换为String或Integer,再使用SaveSetting函数存入注册表。注意:当使用Cstr函数转换Boolean时,如果Boolean为“真”,转换的String就是“True”,反之则是“False”,转换为Integer是0代表假,1代表真。
不知是否详细。
Dim day As String
Dim fordername As String
day = DateTime.Today.DayOfWeek.ToString
If day = "Thursday" Then 如果是周四则创建文件夹
fordername= Now.Date.ToString("yyyy-M-dd")
‘ Application.StartupPath 是你程式的开始路径,你也可以换成觉吨路径:c:\
If IO.Directory.Exists(Application.StartupPath + "\fordername") = False Then ’判断文件夹是否存在
IO.Directory.CreateDirectory(Application.StartupPath + "\fordername")
End If
End If
用记事本打开该文件,全选复制。另存为。然后手动更改回文件后缀。
替换到原来位置。
更新数据库命令 直接将 分钟列出 +10就Ok了!!
例如:yy:m:d h:m m + 10 ss 这个格式!!
修改文件的创建时间system.io.file.setcreationtime(label1.caption,
cdate(
text1.text
"-"
text2.text
"-"
text3.text
"
" text4.text
":"
text5.text
":"
text6.text))
文件的修改时间用system.io.file.setlastwritetime
如果label1是用打开对话框选择的要加cdlg
核心代码给你了
自己研究吧