照片文件夹下能否再创建文件夹？

dasxsf · 发表于 2010-1-6 15:09:06

引用别人的程序，在窗体上，设计了加载2组图片，分别存在“示范户照片”和“技术员照片”文件夹下。问题是示范户照片数量达到1000人，查找编辑很不方便，能否修改以下编码，在“示范户文件夹”下再创建各村的文件夹（前程村、龙沼村、红光村、太平村），这样会方便管理。

Private Sub Form_Current()

Dim TempPhotoPath As String

Dim TempPhotoPath1 As String

TempPhotoPath = CurrentProject.Path & "\示范户照片\" & Me.图片地址 & ".jpg"

TempPhotoPath1 = CurrentProject.Path & "\技术员照片\" & Me.图片地址1 & ".jpg"

If FileExistCheck(TempPhotoPath) = 1 Then

Me.照片.Picture = TempPhotoPath

Else

Me.照片.Picture = ""

End If

If FileExistCheck(TempPhotoPath1) = 1 Then

Me.照片1.Picture = TempPhotoPath1

Else

Me.照片1.Picture = ""

End If
End Sub

todaynew · 发表于 2010-1-6 16:59:32

请参见《文件及文件夹管理》一文即可。

LeeTien · 发表于 2010-5-13 13:32:31

建子文件夹怎么弄啊

joyark · 发表于 2011-7-3 02:16:02

正需要了解！谢谢！

liuxiangyucdpc · 发表于 2012-7-26 21:38:02

关注中

赌鬼 · 发表于 2012-7-27 11:24:54

todaynew 发表于 2010-1-6 16:59
请参见《文件及文件夹管理》一文即可。

打不开网址

jinzhanxi · 发表于 2012-7-27 08:55:43

todaynew 发表于 2010-1-6 16:59
请参见《文件及文件夹管理》一文即可。

打不开网址

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 照片文件夹下能否再创建文件夹？

群介绍
主题无相 (随机显示版	同地区群块其他地区)