Greed Island

You experience this issue if a script in the Web page that is displayed is performing either a windows.resizeTo method or a windows.moveTo method when you try to move or resize the window. This issue occurs because of a design change in Windows Server 2003 Service Pack 1 (SP1) and Windows XP Service Pack 2 (SP2). This design change improves the security on the computer by blocking any move or resize functions.

この��は、表示される Web ペ�ジにスクリプトが�行して、 windows.resizeTo メソッドまたは windows.moveTo メソッドのいずれかを移�またはウィンドウのサイズを�更するとき�合�生します。この��は、2 (SP2) Windows Server 2003 Service Pack 1 (SP1) および Windows XP Service Pack のデザインを�更のため�生します。このデザインの�更はブロックすべて移�することによって、コンピュ�タ�のセキュリティを向上または�数を�更します。

如果当您尝试移动该窗口或调整其大小时显示的网页中的脚本将为执行 windows.resizeTo 方法或 windows.moveTo 方法，您遇到此问题。发生此问题是由于设计更改 Windows Server 2003 Service Pack 1 (SP 1) 和 Windows XP Service Pack 2 (SP 2)。此设计更改通过阻止任何移动提高安全性，在计算机上的，或调整功能。

TOP

星期二, 九月 22, 2009

file system management bat & vbs

Posted by 박용진

moveFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")
'move folder to destination as subfolder
call objFSO.moveFolder("C:\macro\aa", "C:\macro\aaa\")

run.bat

---

@cscript bin\ファイル削除.vbs
@rd /s/q bin
@pause
@del deleteFolder.bat

bin\ファイル削除.vbs
----

Dim i

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
'Get Current Directory path
Set objFolder = objFSO.GetFolder(objWshShell.CurrentDirectory)

GetFile objFolder
Sub GetFile(colSubfolders)
'Delete the subfolder named cvs
' Set colSubfolders = colSubfolders.Subfolders

    For Each objSubfolder in colSubfolders.Subfolders
        If objSubfolder.Name="CVS" or objSubfolder.Name=".metadata" then
   Wscript.Echo objSubfolder.Path
         objFSO.DeleteFolder(objSubfolder)
   i=i+1
  Else
  'Wscript.Echo objSubfolder.Name
  GetFile objSubfolder
        End If
    Next
End Sub
Wscript.Echo i & "件のCVSファイルを削除しました。"

TOP

星期二, 八月 18, 2009

Posted by 박용진

TOP

星期三, 六月 03, 2009

vba的文件操作

Posted by 박용진

明天或许有用，先贴上。

Sub Macro()
    Dim FSO, fold, i As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")
     Set fold = FSO.GetFolder("D:\study")
    i = 1
    For Each myFile In fold.SubFolders
         If StrConv(Right(myFile.Name, 4), vbLowerCase) = ".pdf" Then
            'Workbooks.Open Filename:=myFile.Path
             Sheets(1).Cells(i, 1) = myFile.Path
            i = i + 1
        End If
    Next
    Set FSO = Nothing
 End Sub
Sub Test()
    Dim FoundFile As String, i As Integer
     i = 1
    'FoundFile = Dir(ThisWorkbook.Path & "\*.xls")
    FoundFile = Dir("D:\study\C++\*.pdf")
    Do While FoundFile <> ""
         If FoundFile = "." Then
            Debug.Print FoundFile
        End If
         Sheets(1).Cells(i, 1) = FoundFile
        FoundFile = Dir()
        i = i + 1
    Loop
End Sub

Sub Test1()
     EnumFiles "d:\study\c++"    ' 遍历指定目录下的文件
End Sub

Sub EnumFiles(ByVal sPath As String)
     Dim fs As New FileSystemObject
    GetFile fs.GetFolder(sPath)
    Set fs = Nothing
 End Sub

Sub GetFile(ByVal fldParent As Folder)
    Dim fldSub As Folder, fSub As File
     For Each fldSub In fldParent.SubFolders
        GetFile fldSub
    Next
    For Each fSub In fldParent.Files
         If UCase(Right(Trim(fSub), 3)) = "PDF" Then     ' 文件类型判断
            Debug.Print fSub
        End If
     Next
    Set fldSub = Nothing
    Set fSub = Nothing
End Sub