Fortran Coder

查看: 70|回复: 4

[绘图界面库] fortran 创建系统日期文件夹

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
20 元
贡献
7 点
发表于 2017-11-21 10:13:27 | 显示全部楼层 |阅读模式
我想在一个指定目录创建当前系统日前的文件夹,比如今天是2017年11月21日,就创建一个文件夹的名字是20171121,没成功
我的代码是这样的,用的 IVF的编译器
我本来是创建20天的,可是一天都没出来
[Fortran] 纯文本查看 复制代码
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’不是内部或外部命令,也不是可运行的程序或批处理文件
求大神们帮忙看看呀

回复

使用道具 举报

376

帖子

2

主题

0

精华

大宗师

F 币
2585 元
贡献
1549 点

水王勋章元老勋章热心勋章

发表于 2017-11-21 10:36:29 | 显示全部楼层
建议md改成mkdir,易懂且bash和dos通用
另外,mkdir后面为啥没有空格呢?

2

帖子

1

主题

0

精华

新人

F 币
20 元
贡献
7 点
 楼主| 发表于 2017-11-21 10:48:05 | 显示全部楼层
pasuka 发表于 2017-11-21 10:36
建议md改成mkdir,易懂且bash和dos通用
另外,mkdir后面为啥没有空格呢?

感谢 大神呀,原来就是差那个空格,非常感谢!!!
我特别想问问
E:\YUE\wumai\2018\20171121104627.png
我这个system为啥不变颜色呢?
QQ截图20171121104542.png

376

帖子

2

主题

0

精华

大宗师

F 币
2585 元
贡献
1549 点

水王勋章元老勋章热心勋章

发表于 2017-11-21 11:09:39 | 显示全部楼层
很久不用ivf,实在无法解答

1148

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
1128 元
贡献
892 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-11-21 11:19:28 | 显示全部楼层
没关系,不变色就不变色。不影响的
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-12-18 15:07

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表