Access开发交流杂谈--2013-10-15--Access培训群(195471449)

Office中国群管

席主习 于2013-10-15 22-34-57：
思路很重要

yinxiaobao18

无名小卒 于2013-10-15 22-34-58：
不是真用那个目录或路径

Office中国群管

席主习 于2013-10-15 22-35-28：
你如果要学习技术，可以慢慢的深入到底

Office中国群管

席主习 于2013-10-15 22-36-04：
如果是要解决某个问题，那么提出的示例，最好贴近于你的问题。这样能更容易得到你想要的结果

yinxiaobao18

无名小卒 于2013-10-15 22-37-13：
又如我要在某图片框中按顺序显示某文件夹中的所有图片,而不是随机显示.在form_timer事件上写代码.

tmtony

tmtony小辣椒 于2013-10-15 22-37-45：
'tmtony--循环当前所有目录
Private Sub Command0_Click()
  Dim strPath As String
  Dim strTmp As String
  strPath = "e:\"
  strTmp = Dir(strPath, vbDirectory)
  Do While strTmp  ""
     ' 跳过当前的目录及上层目录。
    If strTmp  "." And strTmp  ".." Then
        ' 使用位比较来确定 strTmp 代表一目录。
        If (GetAttr(strPath & strTmp) And vbDirectory) = vbDirectory Then
            Debug.Print strTmp     ' 如果它是一个目录，将其名称显示出来。
        End If
    End If
    strTmp = Dir    ' 查找下一个目录。
   
   
  Loop
End Sub

Office中国群管

席主习 于2013-10-15 22-38-53：
'''''''''''''''''''文件夹检查'''''''''''''''''''''
   '如系统运行所需文件夹不存在就自动创建一个
   '商检报告
   If Dir(CurrentProject.Path & "\商检报告\", vbDirectory) = "" Then '如指定文件夹不存在
      MkDir (CurrentProject.Path & "\商检报告\")             '就创建一个
      SaveLj = (CurrentProject.Path & "\商检报告\")
   Else
      SaveLj = (CurrentProject.Path & "\商检报告\")          '将已有路径赋给变量SaveLj
   End If
   '商检报告\当前年
   If Dir(SaveLj & (Year(Now()) & "年") & "\", vbDirectory) = "" Then
      MkDir (SaveLj & (Year(Now()) & "年") & "\")
      SaveLj = (SaveLj & (Year(Now()) & "年") & "\")
   Else
      SaveLj = (SaveLj & (Year(Now()) & "年") & "\")
   End If
   '商检报告\当前年\当前月
   If Dir(SaveLj & Month(Now()) & "月" & "\", vbDirectory) = "" Then
      MkDir (SaveLj & Month(Now()) & "月" & "\")
      SaveLj = (SaveLj & Month(Now()) & "月" & "\")
   Else
      SaveLj = (SaveLj & Month(Now()) & "月" & "\")
   End If
   
   '商检报告\当前年\当前月\当前日
   If Dir(SaveLj & Day(Now()) & "号" & "\", vbDirectory) = "" Then
      MkDir (SaveLj & Day(Now()) & "号" & "\")
      SaveLj = (SaveLj & Day(Now()) & "号" & "\")
   Else
      '新生成商检的最终保存路径
      SaveLj = (SaveLj & Day(Now()) & "号" & "\")
   End If
   Debug.Print SaveLj
   
   '在 “商检报告\当前年\当前月\当前日\”路径中，
   '创建一个“已处理”文件夹，用于存放工作中已处理的文件
   If Dir(SaveLj & "\" & "已处理" & "\", vbDirectory) = "" Then
      MkDir (SaveLj & "\" & "已处理" & "\")
   End If
   
   '商检照片
   If Dir(CurrentProject.Path & "\商检照片\", vbDirectory) = "" Then '如果存放照片的文件夹不存在
      MkDir (CurrentProject.Path & "\商检照片\")             '则创建一个
   End If
   
   ''''''''''''''''''''''''''数据处理'''''''''''''''''''''''''''''''''''''''''''''''

Office中国群管

席主习 于2013-10-15 22-39-51：
这是我前期写的一个代码里的其中一段。检查某个文件夹是否存在，有就直接使用，没有就创建一个。

Office中国群管

席主习 于2013-10-15 22-40-03：
这样的话，文件夹部署，就没问题了

yinxiaobao18

无名小卒 于2013-10-15 22-41-04：
If strTmp  "." And strTmp  ".." 王站,这个意思我不大明白,请解释一下,谢谢.