<%
With Dbcon
.CommandTimeout = 0
End With
Server.ScriptTimeOut = 3600*10*10
'Set fs = Server.CreateObject("Scripting.FileSystemObject")
'Set folders = fs.GetFolder("d:폴더명uploadfilesbank")
'Set folder_files = folders.Files

'For Each f in folder_files
's = s & f.name
' s = s &   "<BR>"
'Set objFile = fs.OpenTextFile("d:폴더명uploadfilesbank"&f.name,1)
'Do While objFile.AtEndOfStream <> True
'   Response.write objFile.readLine & "<br>"
'loop
' 이런 방법도 같은 결과를 출력한다.(ReadAll 사용)
'content = objFile.readall
'str = replace(content,chr(13)&chr(10),"<br>")
'str = replace(str,"'","''")
'Response.write str


'strSQL="update bbs_data set bbs_content='"& str &"' , bbs_html='' where  bbs_htmlfile='"&f.name&"' and bbs_code='14' and bbs_html ='1'"
'strSQL="insert into  filefile (test_data) values ('"&str&"')
'response.write strSQL
'DBCon.Execute(strSQL)
'Set objFile=Nothing


'Next
'response.write "파일갯수 : " & folders.Files.count & "<BR>"


'folder Creating...
'Function CreateFolder(NewFolder As String)
'Dim fso, f, templen, Temp, tempDel
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.CreateFolder(NewFolder)
'CreateFolder = f.Path
'End Function


'============================================================================================================

If true Then
 strSQL="select top 1 * From E_BBS_CONT where  APPEND_FILE_NM2 is not null and use_yn='Y' "
 'strSQL=strSQL&" APPEND_FILE_NM2 is not null or "
 'strSQL=strSQL&" APPEND_FILE_NM3 is not null ) "
 response.write strSQL
'APPEND_FILE_NM1
'APPEND_FILE_REG_NM1
'APPEND_FILE_NM2
'APPEND_FILE_REG_NM2
'APPEND_FILE_NM3
'APPEND_FILE_REG_NM3
'APPEND_FILE_NM4
'APPEND_FILE_REG_NM4


 Set rs = DBCon.Execute(strSQL)
 If Not rs.eof Then
  i=1
  Set fso = CreateObject("Scripting.FileSystemObject")
 
   
    bbs_cd  =rs("bbs_cd")
    data_no  =rs("data_no")
    newf=bbs_cd & "0" & data_no
    'APPEND_FILE_NM1=rs("APPEND_FILE_NM1")   
    'APPEND_FILE_REG_NM1=rs("APPEND_FILE_REG_NM1")
    APPEND_FILE_NM2=rs("APPEND_FILE_NM2")
    APPEND_FILE_REG_NM2=rs("APPEND_FILE_REG_NM2")
    'APPEND_FILE_NM3=rs("APPEND_FILE_NM3")
    'APPEND_FILE_REG_NM3=rs("APPEND_FILE_REG_NM3")
    'APPEND_FILE_NM4=rs("APPEND_FILE_NM4")
    'APPEND_FILE_REG_NM4=rs("APPEND_FILE_REG_NM4")   
   
    '== 새로운 파일명 함수사용=============================
    'new_bbs_htmlfile1=fn_Change(APPEND_FILE_NM1,newf,"01")
    new_bbs_htmlfile2=fn_Change(APPEND_FILE_NM2,newf,"02")
    'new_bbs_htmlfile1=fn_Change(APPEND_FILE_NM3,newf,"03")
    '== 새로운 파일명 함수사용=============================
   
    'response.write APPEND_FILE_NM1 & " ///// 총 ===" & i &"건<br>"
   
     if fso.FileExists("d:폴더명uploadfiles"&APPEND_FILE_NM2) Then
    
     Else
      response.write APPEND_FILE_NM2 & " ///// 총 ===" & i &"건<br>"
     End if
    'Call CopyFile("기본파일경로및파일명", "복사할경로및파일명")
    Call CopyFile("d:폴더명uploadfiles"&APPEND_FILE_NM2, "d:폴더명intr_file"&new_bbs_htmlfile2)
   
    '== 기존 파일명을 새로운 파일명으로 변경함 ==================
    strSQL="update E_BBS_CONT set use_yn='N' where bbs_cd='" & bbs_cd & "' and data_no='" & data_no & "'"
    'response.write strSQL
    DBCon.Execute(strSQL)

    strSQL="update E_BBS_CONT set APPEND_FILE_REG_NM2='"&new_bbs_htmlfile2&"' where bbs_cd='" & bbs_cd & "' and data_no='" & data_no & "'"
    'response.write strSQL
    DBCon.Execute(strSQL)
   
    i=i+1   
  Set fso=Nothing
 End If
End If

Function fn_Change(wefile,new1,idx)
 arrFname="": lenFname="": endFname=""

 arrFname=Split(wefile,".")     '== 파일명분리
 lenFname=ubound(arrFname)   '== 파일길이
 endFname=arrFname(lenFname)  '== 확장자
 fn_Change=new1 & idx & "." &endFname
End Function

'file Copying...
Sub CopyFile(source, destination)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(source)
f.Copy destination
End Sub

%>
<SCRIPT LANGUAGE="JavaScript">
<!--
location.reload();
//-->
</SCRIPT>
<%
'====== 복사할 원본 파일 , 복사될 파일.. ====
'Call CopyFile("d:폴더명ebs_workebs_db.asp", "d:폴더명ebs_workebs_db111.asp")
'============================================================================================================
'folder Deleting...
'Sub DeleteFolder(filespec)
'Dim fso
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.DeleteFolder (filespec)
'End Sub

'아래 코드는 For Each...Next 문을 사용해서 Folders 컬렉션을 가져오는 방법과 컬렉션을 반  '.복하는 방법을 설명합니다.
'Sub ShowFolderList(folderspec)
'Dim fs, f, f1, fc, s, i
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder(folderspec)
'Set fc = f.SubFolders
'For Each f1 In fc
's = s & f1.Name
's = s & vbCrLf
'Next
'MsgBox s
'End Sub


'숨겨진 파일 특성과 시스템 파일 특성이 설정된 것을 포함하여, 지정된 파일에 포함된


'. 모든 File 개체로 구성되는 Files 컬렉션을 반환합니다
'Sub ShowFileList(folderspec)
'Dim fs, f, f1, fc, s
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder(folderspec)
'Set fc = f.Files
'For Each f1 In fc
's = s & f1.Name
's = s & vbCrLf
'Next
'MsgBox s
'End Sub



'아래 코드는 Folder 개체를 얻는 방법과 이 개체의 속성 중 하나를 반환하는 방법을


'.설명합니다.
'Sub ShowFolderInfo(folderspec)
'Dim fs, f, s
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set f = fs.GetFolder(folderspec)
's = f.DateCreated
'MsgBox s
'End Sub


'.상기와 같이 모듈파일에 정의해 놓고, 골라서 적용하세요.

'.Example.


'저장할 폴더검색 및 Creat


'tmpFolder = "저장할 폴더 경로"   '. D:Data2004-10-19"
'If Dir(tmpFolder, vbDirectory) = "" Then  '. 폴더가 존재하지 않는다면
'CreateFolder tmpFolder                            '.폴더를 맹글어라.
'End If


'파일에 Data 기록


'LogDataFile = "저장할 파일 경로"   '. D:Data2004-10-192004-10-19.dat"


'LogData = "아침 식사는 했수?"   '.저장할 Data


'FileNumber = FreeFile
'Open LogDataFile For Append As FileNumber
'Print #1, LogData
'Close #1


'.Copy 를 한다.


'SourceFile = "복사할 파일 경로"     '. D:Data2004-10-192004-10-19.dat"


'tmpCopyFile = "복사될 파일 경로"   '. D:BackUp2004-10-192004-10-19.dat"


'CopyFile SourceFile, tmpCopyFile       '.복사 실행


'.지워버릴 폴더검색 및 Creat


'tmpFolder = "저장할 폴더 경로"   '. D:Data2004-10-19"


'DeleteFolder(tmpFolder)                  '.가차 없이 지워버려라.


%>

2009/08/07 21:50 2009/08/07 21:50

Trackback Address :: https://youngsam.net/trackback/686