Question

Vb.net中一年内如何创建每周四以时间命名的文件夹

举个例子在一个根目录下类似C:\\如何连续创建每周四以时间命名的文件夹
2013-1-3；2013-1-10；2013-1-17

Answer 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

追问

大侠，您好，你这个语句是对今天时间做判定，如果不是星期四就不创建。
我这边可能需要的是直接一个程序把一年所有的星期四都建成文件夹。。

Answer 2

for循环1到365 step 7 从星期4开始

My.Computer.FileSystem.CreateDirectory（）

追问

具体的思路我也知道但是实现不了，你帮我看下以下语句那边可以修改下吗？ Dim d As String Dim i As Integer
'For i = 1 To 365 Step 7

d = Format(Now, "yyy-MM-dd") MkDir("D:" & "\" & d)
'Next

End Sub

追答

你首先要确定当前年的1月几号为星期四
If Now.DayOfWeek = DayOfWeek.Friday
然后从这个数值step 7
然后My.Computer.FileSystem.CreateDirectory（）
我现在不方便没有时间写 旁边有客户。。。

追问

不好意思占用你的时间了！
~~~这边等你有时间了再帮我看看。。。谢谢
2013年1月3日为星期四开始
另外你下面的if语句是确认今天是否是周五我不知道有什么作用
在写for语句循环的的时候我这边就是不知道是否也要将字符串转换为文本去写，
这个如何去写