- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 只导入。jpg 文件，该怎么办？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32913)
-- 发布时间：2013/5/10 12:55:00
-- 只导入。jpg 文件，该怎么办？
再下面这段代码中 我只想导入。jpg 文件，不想导入其他文件，该怎么办？
Dim Val As String
For Each File As String In FileSys.GetFiles("f:\\图片")
Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
Val = Val & "|" & f.Name
Next
Dim Values() As String
Values = Val.split("|")
For Index As Integer = 0 To Values.Length - 1
Dim r As Row = Tables("newmoo_product").AddNew
Dim s As Row = Tables("shop").AddNew
s("商品原始图片") = Values(Index)
r("ppp") = Values(Index)
Next
-- 发布时间：2013/5/10 13:02:00
--
Dim Val As String
For Each File As String In FileSys.GetFiles("f:\\图片")
if File.ToUpper.EndsWith(".JPG") Then
Val = Val & "|" & File
For Each File As String In FileSys.GetFiles("f:\\图片")
if File.ToUpper.EndsWith(".JPG") Then
Val = Val & "|" & File
End if
Next
Next
Values = Val.trim("|").split("|")
if Values.Length >0 then
For Index As Integer = 0 To Values.Length - 1
For Index As Integer = 0 To Values.Length - 1
Dim r As Row = Tables("newmoo_product").AddNew
Dim s As Row = Tables("shop").AddNew
s("商品原始图片") = Values(Index)
r("ppp") = Values(Index)
Dim s As Row = Tables("shop").AddNew
s("商品原始图片") = Values(Index)
r("ppp") = Values(Index)
Next
End if
[此贴子已经被作者于2013-5-10 13:06:40编辑过]
-- 发布时间：2013/5/10 13:38:00
--
