Private Sub Command1_Click()DT = Format(Date, "yyyymmdd")If Dir("E:\" & DT, vbDirectory) = "" Then MkDir "E:\" & DTEnd Sub
不能把命名变量放在双引号里面 不然会直接把变量名当成文件名
