fortran 创建系统日期文件夹
我想在一个指定目录创建当前系统日前的文件夹，比如今天是2017年11月21日，就创建一个文件夹的名字是20171121，没成功我的代码是这样的，用的 IVF的编译器
我本来是创建20天的，可是一天都没出来
Program shijian
use ifport
implicit none
Integer ::date_time(8),day1(50),yy(50),mm(50),dd(50),i
Character*10 ::b(3),day(50)
Character*8 :: day2(50)
Integer :: istatus1,istatus2
!Character(len=100) ::
call date_and_time(b(1),b(2),b(3),date_time)
dd(1)=date_time(3);mm(1)=date_time(2);yy(1)=date_time(1)
do i=1,20
dd(i+1)=dd(i)-1;mm(i+1)=mm(i);yy(i+1)=yy(i)
if(dd(i+1).eq.0)then
mm(i+1)=date_time(2)-1
if(mm(i+1).eq.0) then ; yy(i+1)=date_time(1)-1;dd(i+1)=31;mm(i+1)=12
Else if(mm(i+1).eq.1.or.mm(i+1).eq.3.or.mm(i+1).eq.5.or.mm(i+1).eq.7.or.mm(i+1).eq.8.or.mm(i+1).eq.10) then
dd(i+1)=31
Else if(mm(i+1).eq.4.or.mm(i+1).eq.6.or.mm(i+1).eq.9.or.mm(i+1).eq.11) then;dd(i+1)=30
Else if(mm(i+1).eq.2) then ;
if(mod(yy(i+1),4).eq.0) then; dd(i+1)=28
else ; dd(i+1)=29
endif
End if
else; dd(i+1)=dd(i+1)
end if
! print*, yy(i),mm(i),dd(i)
day1(i)=yy(i)*10000+mm(i)*100+dd(i)
write(day2(i),'(i8)') day1(i)
! write(*,*) day2(i)
day(i)=day2(i)//'20'
! print *, day(i)
enddo
istatus1=system("Md"//day(1))!！！！！这里有一个问题 就是我的system 没有变颜色
End Program
提示我的是‘Md2017112120’不是内部或外部命令，也不是可运行的程序或批处理文件
求大神们帮忙看看呀
建议md改成mkdir，易懂且bash和dos通用
另外，mkdir后面为啥没有空格呢？ pasuka 发表于 2017-11-21 10:36
建议md改成mkdir，易懂且bash和dos通用
另外，mkdir后面为啥没有空格呢？
感谢 大神呀，原来就是差那个空格，非常感谢！！！
我特别想问问
E:\YUE\wumai\2018\20171121104627.png
我这个system为啥不变颜色呢？ 很久不用ivf，实在无法解答 没关系，不变色就不变色。不影响的
页:
[1]