Tags: empty

Sort by: Date / Title /

  1. 9 years ago by spirit
    1. function clearDefault(el) {
    2.   if (el.defaultValue==el.value) el.value = ""
    3. }
    4.  
    5. // Then call this function using the 'onfocus' value of your input box:
    6.  
    7. <input value="Your Comment" onfocus="clearDefault(this)" type="text">
    Paste this in your website: <script type="text/javascript" src="http://www.posteet.com/embed/1862"></script>
  2. 11 years ago by obiwan
    Option Explicit
    
    Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
    
    Function FolderEmpty(strFolderPathName)
    	Dim oFiles, oFile, oFolder, oSubFolders, oSubFolder
    	Dim blnFileFound : blnFileFound = False
    	Set oFolder = oFS.GetFolder(strFolderPathName)
    	Set oFiles = oFolder.Files
    	If oFiles.Count > 0 Then
    		FolderEmpty = False
    		Exit Function
    	End If
    	Set oSubFolders = oFolder.SubFolders
    	For Each oSubFolder In oSubFolders
    		If Not FolderEmpty(oSubFolder.Path) Then
    			FolderEmpty = False
    			Exit Function
    		End If
    	Next
    	FolderEmpty = True
    End Function
    
    Dim strFolderPathName : strFolderPathName = "D:\Tests\Test"
    If FolderEmpty(strFolderPathName) Then
    	MsgBox "Le répertoire " & strFolderPathName & " est vide."
    Else
    	MsgBox "Le répertoire " & strFolderPathName & " contient un ou plusieurs fichiers."
    End If
    Paste this in your website: <script type="text/javascript" src="http://www.posteet.com/embed/203"></script>

First / Previous / Next / Last / Page 1 of 1 (2 posteets)